[DIMMON4IK]

Вобщем до
exit := createCommand('Exit', CM_EXIT, 2);
addCommand(exit);
repeat
delay(100);
clicked := GetClickedCommand;
until
clicked = exit;
Ты работаеш с canvas а после не вызвав showform перешла на формы