Tombol exit Dengan Pesan (MessagBox)

1. Buat Form Desain Seperti ini

   Kebutuhan
Label1: TLabel;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    txtnama: TEdit;
    txtharga: TEdit;
    txtjumlah: TEdit;
    txtbayar: TEdit;
    GroupBox2: TGroupBox;
    Button4: TButton;

Saatnya coding
> Untuk Tomob x di Pojok Kanan Atas Klik 2x 
procedure TForm3.Button4Click(Sender: TObject);
begin
begin
if MessageDlg('Sekian saja dahulu yah hehe,kalo pencet yes bakal exit',mtInformation,[mbYes,mbNo],0) = mrYes then
form3.Close;
end;

end;
>> Untuk Tombol Hitung Klik 2x
procedure TForm3.Button1Click(Sender: TObject);
var
hrg,jml,byr:real;
begin


hrg:=strtofloat(txtharga.text);
jml:=strtofloat(txtjumlah.text);
byr:=hrg*jml;
txtbayar.text:=floattostr(byr);

end;
>>> Tombol Clear Klik 2 x
procedure TForm3.Button2Click(Sender: TObject);
begin
txtnama.Text :='';
txtharga.Text:='';
txtjumlah.Text :='';
txtbayar.Text :='0';
end;