طلب مساعدة في تصحيح الكود

السلام عليكم

الرجاع من الأعضاء الكرام الساعدة في تصحيح هذا الكود الذي هو عبارة عن كود برنامج يحسب النسبة المئوية و المشكل هو في StrToFloat كما أضن

يرجى المساعدة

procedure TForm1.Button1Click(Sender: TObject);
var
A: integer;
B: integer;
C: integer;
D: integer;

begin
a:= StrToint(edit1.text);
b:= StrToint(edit2.text);
Edit3.text:= intToStr((A*B)/100);
c:= StrToint(edit3.text);
Edit4.text:= intToStr(A-C);
d:= StrToint(edit4.text);
Edit5.text:= intToStr((d*100)/a);

end;