Rumus Persegi Panjang Dengan Delphi

procedure TForm1.Button1Click(Sender: TObject);

var

panjang,lebar,Luas:real;

begin

panjang:=strtofloat(Edit1.text);

lebar:=strtofloat(Edit2.text);

luas:=(panjang*lebar);

Edit3.Text:=floattostr(luas);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.