ADOQueryGivBy.FindFirst

[azat]

Имеется проект, в нем есть кнопка выполняющая:

ADOQueryGivBy.SQL.Text:='SELECT * FROM TGivBy ORDER BY Name';
ADOQueryGivBy.Open;
if ADOQueryGivBy.FindFirst then begin
  repeat
    ...
  until not ADOQueryGivBy.FindNext;
end;

но при выполнении на 3-ей строке выдаёт ошибку:
"Project Project.exe raised exception class EOleException with message 'BOF или УEOF' имеет значение True, либо текущая запись удалена. Для выполнения операции требуется текущая запись. "

создал новый проект с той же кнопкой и тем же кодом - всё работает нормально. Странно. В моем проекте это работать не хочет. Интересно почему? вродебы и там и там свойства ADOQuery одинаковы и не меняются при выполении, но в моем проекте этот код не пашет.
У кого какие дагадки имеются?.
Спасибо.

[Stilet]

Фильтры не определены? Ато помнится мне что FindFirst фильтры Уважает.
И кстати вместо FindFirst попробуй просто First, так на всякий случай...

[azat]

Сообщение от Stilet

Фильтры не определены? Ато помнится мне что FindFirst фильтры Уважает.
И кстати вместо FindFirst попробуй просто First, так на всякий случай...

фильтров нет.

пробовал
ADOQueryGivBy.SQL.Text:='SELECT * FROM TGivBy ORDER BY Name';
ADOQueryGivBy.Open;
ADOQueryGivBy.First;
if not ADOQueryGivBy.isEmpty then begin
repeat
...
until not ADOQueryGivBy.FindNext;
end;
такая же ошибка, но на операторе FindNext.
Но фишка в том, что тот ж е код в новом проекте работает нормально (((.

[2face]

вместо if not ADOQueryGivBy.isEmpty then begin
надо
while not ADOQueryGivBy.eof do
begin
...
ADOQueryGivBy.next;
end;

[azat]

Сообщение от 2face

вместо if not ADOQueryGivBy.isEmpty then begin
надо
while not ADOQueryGivBy.eof do
begin
...
ADOQueryGivBy.next;
end;

Спасибо. вроде работает )). но надо добавить еще наверное и ADOQueryGivBy.First;

[2face]

Спасибо. вроде работает )). но надо добавить еще наверное и ADOQueryGivBy.First;

Не наверное, а точно ))