procedure TForm1.Button1Click(Sender: TObject);
var
sakat1,sakat2,sakat3,eb:integer;
begin
sakat1:=strtoint(edit1.Text );
sakat2:=strtoint(edit2.Text );
sakat3:=strtoint(edit3.Text );
eb:=sakat1;
if sakat2>eb then eb:=sakat2;
if sakat3>eb then eb:=sakat3;
label5.Caption := inttostr(eb);
end;
end.
nazım demir
demirnazim@hotmail.com