Из Pascal в Delphi

[Nivil]

помогите сделать из паскаля в делфи
число кратное 5

uses crt;
var
x,code: integer;
st: string;
begin
clrscr;
writeln('введите целое число');
readln(st);
val(st,x,code);
if code=0 then
if x mod 5=0 then writeln('кратно 5') else writeln('не кратно 5')
else writeln('это не целое число');
readln;
end.

[Abbatik]

procedure TForm1.Button1Click(Sender: TObject);
begin
st:=strtofloatdef(edit1.text,code);
if code<>0 then
if st mod 5=0 then label1.caption:='кратно 5' else 
label1.caption:='не кратно 5';
end;

[Nivil]

Что-то у меня ни фига не получается
Я чайник в Делфи, помогите пожалуйста

[Kostia]

Поставьте на форму компоненты выделеные на рисунке.
Затем два раза кликните по button1, и вставьте между begin и end тот код, который указал Abbatik.
И еще, в разделе var объявите переменную st типа real.

[puporev]

Напиши так:

procedure TForm1.Button1Click(Sender: TObject);   
begin  
var st:integer;
st:=strtoint(edit1.text);   
if st mod 5=0 then label1.caption:='кратно 5' else    
label1.caption:='не кратно 5';   
end;

Естественно на форму положи Edit, Label, Button и щелкни по нему два раза.

[Nivil]

var st:integer;
Подчеркивает

[puporev]

Что значит подчеркивает? В этом малюсеньком коде точно нет ошибок, если ты по ходу ничего не наэкспериментировал.

[Nivil]

Вот как все

[merax]

А ничего что var пишеться перед begin, не на оборот!!!

procedure TForm1.Button1Click(Sender: TObject);      
var 
   st : integer;   
begin   
st:=strtoint(edit1.text);      
if st mod 5=0 then label1.caption:='кратно 5' else       
label1.caption:='не кратно 5';      
end;

[Nivil]

merax спасибо именно так