KALKULATOR SEDERHANA MENGGUNAKAN BORLAND DELPHI 7

Assalamualaikum...
disini saya akan sharing tentang cara membuat sistem penghitungan sederhana, kalkulator menggunakan Borland Delphi 7 . .
seperti ini contoh gambarnya :

siapkan beberapa komponen dan diberi "name" seperti dibawah ini atau anda bisa mengembangkannya sendiri :
Edit1 = enilai1
Edit2 = enilai2
Edit3 = etambah
Edit4 = ekali
Edit5 = ebagi
Edit6 = ekurang
Button1 = Btambah
Button2 = Bkali
Button3 = Bbagi
Button4 = Bkurang
Button5 = Bclose
Button6 = Bulang
// untuk label disesuaikan dengan keinginan masing2..
..
>>>Penambahan dengan mengarahkan pada Btambah (Button) yang melakukan eksekusi<<<

procedure TForm1.BtambahClick(Sender: TObject);
var
nilai1, nilai2 ,tambah:real;
begin
nilai1:=strtofloat(enilai1.Text);
nilai2:=strtofloat(enilai2.Text);
tambah:=nilai1+nilai2;
etambah.text:=floattostr(tambah);
end;

// pada var, diperkenalkan bahwa nilai1, nilai2 dan tambah adalah bilangan real.
setelah identifikasi type bilangan, maka akan melakukan penghitungan sesuai rumus penambahan (+), kita arahkan pada nilai1 dan nilai2.
nilai1:=strtofloat(enilai1.Text);
bermaksud, untuk mengkonversikan string yang dinput menjadi float, untuk melakukan penjumlahan..
begitupun sama dengan nilai2:=strtofloat(enilai2.Text);
setelah penjabaran antara nilai1 dan nilai2, akan dilakukan penjumlahan seperti (tambah:=nilai1+nilai2;).
dan akan muncul hasil pada etambah.Text.
yang menggunakan cara "etambah.Text:=floattostr(tambah);".
dan untuk pembagian, perkalian dan pengurangan, sama seperti konsep diatas, hanya mengubah rumusnya.
.....
>>>Pengalian dengan mengarahkan pada Bkali (Button) yang melakukan eksekusi<<<

procedure TForm1.BkaliClick(Sender: TObject);
var
nilai1, nilai2 ,kali:real;
begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
kali:=nilai1*nilai2;
ekali.text:=floattostr(kali); 
end;

....
>>>Pembagian dengan mengarahkan pada Bbagi (Button) yang melakukan eksekusi<<<

procedure TForm1.BbagiClick(Sender: TObject);
var
nilai1, nilai2 ,bagi:real;
begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
bagi:=nilai1/nilai2;
ebagi.text:=floattostr(bagi);
end;

 >>>Pengurangan dengan mengarahkan pada Bkurang (Button) yang melakukan eksekusi<<<

procedure TForm1.BkurangClick(Sender: TObject);
var
nilai1, nilai2 ,kurang:real; begin
nilai1:=strtofloat(enilai1.text);
nilai2:=strtofloat(enilai2.Text);
kurang:=nilai1-nilai2;
ekurang.text:=floattostr(kurang);
end;

......................................................................................................................................................

Jika semua sudah selesai, kita buat procedure Close; dan procedure Ulang;

procedure TForm1.BcloseClick(Sender: TObject);
begin
close;
end;

// dalam penutupan aplikasi
......................................................................................................................................................

// untuk procedure ulang, seperti refresh atau membersihkan data yang diinput...
procedure TForm1.bulangClick(Sender: TObject);
begin
ednilai1.text:='';
ednilai2.Text:='';
edtambah.text:='';
edkali.Text:='';
edbagi.text:='';
edkurang.text:='';
end;

// sekian dari saya, jika ada kesalahan harap beri saran, ^_^