[dermeg]

Этот алерт просто лажа у меня тоже самое было. Пару секунд и вылетало обратно. Попробуй вот так:

//о программе
procedure aboutShow;
var salrt, scapt: String;
label_id: integer;
cm : command;
begin
showForm;
setTicker(scapt);
label_id:=formAddString(salrt);
cm := createCommand('Назад', CM_BACK, 1);
addCommand(cm);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = cm;
removeCommand(cm);
clearForm;
showCanvas;//ну или обратно в меню
end;