Program Kalkulator Pada Delphi

Berikut contoh program yang bisa saya beri kawan, semoga saja ini bisa membantu rekan sekalian...
 

"Pada form1 kita tanamkan label 3 buah, edit 3 buah, dan button 7 buah . Untuk Nama dari masing – masing object tidak saya lakukan perubahan dan yang diganti hanya caption dari masing – masing object yang telah disesuaikan dengan design / gambar di Bawah ini".

Edit 1 : edit1
Edit 2 : edit2

Di bawah ini adalah kode yang harus kita masukkan :

 1) Pada button1/button tambah (+):

procedure TForm1.Button1Click(Sender: TObject);
var tambah : real;
begin
tambah:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text);
Edit3.Text:=FloatToStr(tambah);
end;


2) Pada button2/button kurang (-):
 
procedure TForm1.Button2Click(Sender: TObject);
var kurang:real;
begin
kurang:=StrToFloat(edit1.Text)-StrToFloat(edit2.Text);
Edit3.Text:=FloatToStr(kurang);
end;
 
3) Pada button3/button bagi (/):
 
procedure TForm1.Button3Click(Sender: TObject);
var bagi : real;
begin
bagi:=StrToFloat(edit1.Text) / StrToFloat(edit2.Text);
Edit3.Text:=FloatToStr(bagi);
end;

4) Pada button4/button kali (*):
 
procedure TForm1.Button4Click(Sender: TObject);
var kali : real;
begin
kali:=StrToFloat(edit1.Text) * StrToFloat(edit2.Text);
Edit3.Text:=FloatToStr(kali);
end;

5) Pada button5/button div :
 
procedure TForm1.Button5Click(Sender: TObject);
var devided:integer;
begin
devided:=StrToInt(edit1.Text) div StrToInt(edit2.Text);
Edit3.Text:=IntToStr(devided);
end;
6) Pada button6/button mod :
 
procedure TForm1.Button6Click(Sender: TObject);
var modify:integer;
begin
modify:=StrToInt(edbil1.Text) mod StrToInt(edbil2.Text);
Edit3.Text:=IntToStr(modify);
end;
7) Pada button7/button exit :
 
procedure TForm1.Button7Click(Sender: TObject);
begin
Form1.Close;
end;

8) Pada button8/button pangkat :

var pangkat : real;
begin
pangkat:=StrToInt(edbil1.Text) * StrToInt(edbil1.Text);
Edit3.Text:=FloatToStr(pangkat);
end;

Sekian program yang bisa saya bagi malam ini, jika ada yang tidak mengerti silahkan di tanyakan. Semoga bermanfaat ya.. ^_^ 
    GBU ALL.