Urgente Choose em button criado em execução

Pessoal solicito uma ajuda

Preciso criar um botoes em tempo de execução, porem não estou conseguindo acionar o comando choose da triggers, alguém poderia me ajudar, segue os comandos para analise

DEF VAR butt AS WIDGET-HANDLE.

CREATE BUTTON butt ASSIGN
NAME = "butt"
LABEL = " LIGAR"
FRAME = FRAME F0:HANDLE
FONT = 1
SENSITIVE = TRUE
VISIBLE = TRUE

TRIGGERS:
ON CHOOSE
DO:
RUN acao.
END.
END TRIGGERS.

colocando o comando:
ON CHOOSE OF butt IN FRAME F0 DO: (..) exibe o erro não reconhecendo o comando OF

desde já agradeço caso alguém ja tenha criado um botão em execução e possa me ajudar.

Tenho assim a funcionar com um fill-in. A ligação deve ser feita a um procedimento.

Código:

create fill-in rect_linha[i] in widget-pool "campos"
            assign
                frame        = frame {&frame-name}:handle
                row          = if Mq_Maquinas.Lin_Maq_Posicao_1 = 0 then 1 else Mq_Maquinas.Lin_Maq_Posicao_1
                column       = if Mq_Maquinas.Col_Maq_Posicao_1 = 0 then 4 else Mq_Maquinas.Col_Maq_Posicao_1 + 2.5
                width        = if Mq_Maquinas.Tam_Btn_Larg      = 0 then 4 else Mq_Maquinas.Tam_Btn_Larg + 2.5
                height       = if Mq_Maquinas.Tam_Btn_Alt       = 0 then 1 else Mq_Maquinas.Tam_Btn_Alt
                bgcolor      = x-cor
                format       = "x(20)"
                /* resizable = false */
                sensitive    = true
                read-only    = true
                /* selectable = true */
                /* movable    = true */
                visible      = true
                screen-value = x-texto
                tooltip      = Mq_Maquinas.Cod_Maquina + " - " + Mq_Maquinas.Descr_Maquina_1
                private-data = string(Mq_Maquinas.Cod_Maquina,"x(10)") +
                               string(Mq_Maquinas.Cod_Seccao, "999") + string(Mq_Maquinas.Cod_Grupo,"x(10)")
            triggers:
               
                ON mouse-select-click    persistent RUN CarregaDados.
                ON mouse-select-dblclick persistent RUN Eventos_Ordem.
               
            end triggers.