source :
procedure TForm1.btnhitungClick(Sender: TObject);
begin
thasil.Text:=FloatToStr(StrToFloat(talas.Text)*StrToFloat(ttinggi.Text)*0.5);
end;
procedure TForm1.btntutupClick(Sender: TObject);
begin
Close();
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ShowMessage('Tugas Praktikum Grafika Komputer/Plug 8/123070221');
end;