برنامج يقوم بعملية الجمع بواسطة دلفي

1-قك باحظار 3 مركبات edit1.text من شريط المركبات standard
2-قم باحظار 3 ازرار button منم شريط المركبات srandard
3-قم بكتابة الكلمات على التوالي في الازرار السابقة calculer-effacer - وذلك بتغيير محتوى الخاصية caption في مفتش الكائنات

بعد القيام بالعمليات السابقة نبدا الان في معالجة البرنامج وكتابة الاوامر اللازمة
1-انفقر نقرا مزدوجا على الزر الذي غيرت دلالته الى calculer
وحرر الامر التالي :
1- بين procedure............ و begin اكتب var : a,b,c:integer;
هنا قمنا بالتصريح بثلاث متغيرات من نوع حقيقي

a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=a+b ;
edit3.text:=inttostr(c);

في الزر effacer اكتب الاوامر التالية :
edit1.text=0;
edit2.text=0;
edit3.text=0;
وذلك من اجل محو محتوى المركبات
نفذ البرنامج ولاحظ