مقايسه دو عدد در دلفي با >

[sara_she]

سلام

من يه مشكلي پيدا كردم كه نمي دونم چه طور حلش كنم

يه فيلد تو بانك (بانك با اينتربيس طراحي شده) از نوع( numeric(18,0 دارم كه يه عدد توش ريخته شده مثلا 800500

حالا مي خوام كاربر يه عدد رو تو textbox وارد كنه و اين عدد با مقدار درون بانكم چك بشه .كد به صورت زير است:

  dm1.IBTable1.Open;
          value1:=StrToInt(edit6.Text);
          value2:=dm1.IBTable1store.Value;

        //  edit10.Text:=inttostr(value1);
        //  edit11.Text:=inttostr(value2);

           if value1 < value2  then
             i:=1;

           if  value1=value2 then
              i:=2

           else
              i:=3;  //value>store

مشكل اينه كه با اينكه من تو بانك 800500 و در textbox عدد 50000رو وارد مي كنم بازم قسمت i:=3 رو اجرا مي كنه

در حالتي كه هر دو مساوي باشند درست عمل مي كنه و i:=2 رو اجرا مي كنه و لي هر كاري مي كنم if اول اجرا نمي شده حتي وقتي علامت رو از بزرگتر به كوچكتر تغيير ميدم بازم if اول اجرا نمي شه

value1 و value2 از نوع integerهستند.به نظر شما مشكل از كجاست