спасибо большое за помощь, все заработало. но теперь новая проблема. при выборе "О программе" хотелось бы видеть бегущую с надписью о программе. но меня почему-то заместо этого выкидывает из эмулятора. что могло случится? или он выполняет команду меню "Выход"? помогите пожалуйста.
showMenu('Simple Antivirus 2009', CH_IMPLICIT);
about := menuAppendStringImage('О программе', loadImage('/exit.png'));
exit := menuAppendStringImage('Выход', loadImage('/exit.png'));
okCommand2 := createCommand('Выбор', CM_OK, 1);
addCommand(okCommand2);
while (getClickedCommand <> okCommand2) do
delay(100);
showForm;
if menuGetSelectedIndex = about then
begin
setTicker('О программе');
end
if menuGetSelectedIndex = exit then halt;
end.