помогите с циклом

[pobedin]

привет! и в таблице, и а запросе есть данные.не записывает в таблицу ничего и цикл как-то непонятно идет. раньше подобная конструкция работала без вопросов.
как условие проверки можно переделать по другому?

query14.First;
DM.tblRepOst.First;
if query14.RecordCount<>0 then
  begin
  while not query14.Eof do
    begin
    if (dm.tblRepOst.FieldByName('KOD_PROD').AsInteger=query14.Fields[0].AsInteger)
    and
    (dm.tblRepOst.FieldByName('MES').AsInteger=query14.Fields[4].AsInteger)
    then
        begin
            dm.tblRepOst.Edit;
          if query14.Fields[3].AsInteger=0 then
            dm.tblRepOst.FieldByName('PR_VYR').AsInteger:=query14.Fields[1].AsInteger;
          if query14.Fields[3].AsInteger=1 then
            dm.tblRepOst.FieldByName('PR_PER').AsInteger:=query14.Fields[1].AsInteger;
          if query14.Fields[3].AsInteger=2 then
            dm.tblRepOst.FieldByName('PR_VOZVR').AsInteger:=query14.Fields[1].AsInteger;    }
            dm.tblRepOst.Post;
        end;
    query14.Next;
    if DM.tblRepOst.Eof=false then
      DM.tblRepOst.Next
    else break;
    end;

  end;

[Stilet]

как условие проверки можно переделать по другому?

Я бы это перевел в SQL и пусть СУБД само парится как такое выполнить.

query14.Fields[1].AsInteger; }

Это что?

[pobedin]

млин. это не убранный кусок коммента вернее его закрывающая скобка.