İki Sayıyı Karşılaştırma

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
 begin
  if a>b then showmessage('1.sayı büyüktür');
  if a  if a=b then showmessage('sayılar eşittir');
 end;
end;

end.