Salam bu məqalədə əvvəlki məqalələrin daha yaxşı başa düşülməsi üçün sadə bir  nümunə hazırlayacam.

ilk öncə formu dizayn edirik

Sonra   “+” düyməsindən başlayaq hər bir düymənin  click hadisəsinə keçib bu kodları uyğun yerlərə yazırıq
var a,b:real; //iki deyisen tanidiriq
begin
a:=strtofloat(edit1.Text);// edit1-e yazilani a deyisenine menimsedirik
b:=strtofloat(edit2.Text);// edit2-e yazilani b deyisenine menimsedirik
showmessage(floattostr(a+b)); // burda ise neticeni ekrana veririk
end;

uyğun qayda ilə digərlərini də yazırıq

sadəcə bölmə əməlində  0-a bölmə olmadığından burda şərt qoyuruq
var a,b:real; //iki deyisen tanidiriq
begin
a:=strtofloat(edit1.Text);// edit1-e yazilani a deyisenine menimsedirik
b:=strtofloat(edit2.Text);// edit2-e yazilani b deyisenine menimsetdirik
if b=0 then showmessage(‘bolen sifir ola bilmez’)  // edit2-e yazilani yoxlayiriq
else 
showmessage(floattostr(a/b)); // burda ise neticeni ekrana veririk
end;

bu qədər sağ olun.