Программирование в SunRav

[Skoskat]

в программе есть ошибка не могу найти
Есть строка ввода edit и кнопка. В строку нужно ввести число 40320, то появляется диалоговое окно правильно, если другое число, то не правильно
procedure Button1;
var
h:integer;
begin
h:=strtoint(pass.Text);
if h=40320 then
pass:= 'правильно';

end.

[TaLadno]

Читаем, думаем, делаем - никогда не нарушай этот порядок. (судя по примеру, то первую пару ты пропустил )

Но если уж хоцца очень быстро, то на:
Процедура ShowMessage - http://www.delphibasics.ru/ShowMessage.php