Menentukan kuadran kartesian dengan delphi

procedure TForm1.Button1Click(Sender: TObject);

var

x,y:integer;

begin

x:=StrToInt(Edit1.Text);

y:=StrToInt(Edit2.Text);

if (x>0) and (y>0) then

Edit3.Text:= 'Kuadran I'

else

if (x<0) and (y>0) then

Edit3.Text:= 'Kuadran II'

else

if (x<0) and (y<0) then

Edit3.Text:= 'Kuadran III'

else

if (x>0) and (y<0) then

Edit3.Text:= 'Kuadran IV';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

end.