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

[مهند الرسيني]

وعليكم السلام ورحمة الله وبركاتة

أهلا بك في عالم البرمجة الشيق والممتع
لو ارفقت السورس كود اكن افضل لكي نسيتطيع مساعدتك بشكل جيد .

على أي حال جرب هذه :

PHP كود :

function CalcCircleArea(Ta, Nq : Single):Single;
begin
  Result := (sqr(Nq) * Ta);
end;

function CalcCylinderSize(CircleArea, AHigh : Single):Single;
begin
  Result := (CircleArea * AHigh);
end;

procedure TForm1.Button2Click(Sender : TObject);
begin
  Caption := FloatToStr(CalcCylinderSize(CalcCircleArea(5, 10), 10));
end; 


اعتقد ان مشكلتك صغيرة , قم بتنقيحه لتعرف أي سطر يخرج الخطا تحديداً