Menghitung Keliling

procedure TForm2.Button2Click(Sender: TObject);
var a,b,c,d : integer ;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);

c:=2*(a+b) ;
d:=a*b;

Edit3.Text := d ;
Edit4.Text := c ;


end;