مشكل في برمجة برنامج بسيط للمبتدئين

[فارس المطر]

السلام عليكم

أخوكم مبتدأ في عالم البرمجة
برنامج بسيط للمبتدئين يقوم بحساب مساحة الدائرة وحجم الأسطوانة

القانون/
مساحة الدائرة = ط* تق ²
حجم الاسطوانة = مساحة الدائرة* الارتفاع

عند تنفيذ البرنامج يقوم بحساب مساحة الدائرة صحيح
حجم الاسطوانة خطا

مع انه يستمد قيمة مساحة الدائرة من القيمة المعروضة في Label 3بعد التنفيذ
واجهة البرنامج

كود :

http://www.mobdi3ine.net/uploads/1426864354011.jpg

ما هي طريقة عمل البرنامج دون مشاكل كما في صورة واجهة البرنامج

كود :

begin r:=strtofloat(edit1.text); a:=sqr(r)*p; Label3.Caption:=floatToStr(a); h:=strtofloat(edit2.text); c:=a*h; Label7.Caption:=floatToStr(c); end;

شكرا