Условие в цикле

var
//    i:integer;
    k1:real;
    k2:real;
    k3:real;
    s:real;
    p1:string;
    p2:string;
    p3:string;
begin
    k1:=Datamodule3.ADOTable9.Fields.Fields[2].AsFloat;
    k2:=Datamodule3.ADOTable9.Fields.Fields[3].AsFloat;
    k3:=Datamodule3.ADOTable9.Fields.Fields[4].AsFloat;
    s:=Datamodule3.ADOTable6.Fields.Fields[3].AsFloat;
    p1:=floatToStr(Round(k1*s));
    p2:=floatToStr(Round(k2*s));
    p3:=floatToStr(Round(k3*s));
 
    Datamodule3.ADOTable6.First;
 
    while not Datamodule3.ADOTable6.eof do
//    for i:=0 to Datamodule3.ADOTable6.RecordCount-1 do
    begin
    Datamodule3.ADOTable6.Edit;
 
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='11' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p1;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='22' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p2;
    if Datamodule3.ADOTable6.Fields.FieldByName('AAA').AsString='33' then
    Datamodule3.ADOTable6.Fields.FieldByName('XXX').AsString:=p3;
 
    Datamodule3.ADOTable6.Next;
    end;
//    Datamodule3.ADOTable6.Post;
end;