جمع مقادير دو Memo در فست ريپورت

[mydelphi]

با سلام:
من تو فست دو تا Memo دارم كه داراي مقادير عددي 25 رقمي مي باشند .حالا مي خواهم مقادير دو Memo را با هم جمع كنم ولي ايراد مي گيره(دو تا متغير از نوع longont معرفي كردم)

با تشكر.........

[nice boy]

procedure Page1OnBeforePrint(Sender: TfrxComponent);

var

a,b:integer;                          

begin

a:=strtoint(trim(memo1.text));

b:=strtoint(trim(memo2.text));

a:=a+b;                

memo3.text:=inttostr(a);              

                                                                      

end;

[mydelphi]

اين پيغام رو ميده...........a.JPG

[Felony]

اون پیغام خطا که همه چیز رو واضح بیان کرده ، اون ععدی که داخل متغییر A یا B بار شده خارج از محدوده نوع داده ای integer هست .

[mydelphi]

دوست عزيز راه حل چيه؟؟؟؟

[Felony]

متغییر ها رو از نوع Double تعریف کنید :

procedure Page1OnBeforePrint(Sender: TfrxComponent);

var

  a, b: Double;

begin

  a := StrToFloat(Trim(memo1.text));

  b := StrToFloat(Trim(memo2.text));

  a := a + b;

  memo3.text := FloatToStr(a);

end;