مشكله فى العمليات الحسابيه

[مبرمج حر]

استخدم متغيرات للحساب

كود :

Var A,B,C :   Currency; begin   A := StrToFloat(Edit1.Text);   B := StrToFloat(Edit2.Text);   C:= A - B ;   Edit3.Text := FloatToStr(c); end;