[Bruteo]

В справке описано как осуществляется переход. Какое отношение к этому имеют "булеаны" непонятно.

var


   okCmd, clicked: command; 

procedure tvoyaProcedura;


begin
   //твой код

end;


begin 
   okCmd := createCommand('OK', CM_OK, 1); 
   addCommand(okCmd); 
   repeat 
     clicked := getClickedCommand; 

   until clicked <> emptyCommand; 


 if clicked = okCmd then tvoyaProcedura;


end.