ADOQuery里面的FindNext问题 ( 积分: 20 )

不好意思，一个很基本的问题，让我觉得很奇怪。
我本来以为FindNext在没有发现下一个记录时，返回False，并退出循环，可是编译期间运行时发现当返回False时，会同时程序出现一个错误，请问为什么？
While ADOQuery.FindNext do
begin
Action;
end;

加一个条件

//窗体运行时把表里面的字段加入combobox中
procedure TForm1.FormCreate(Sender: TObject);
begin
combobox1.Items.Clear;
with query1 do
begin
close;
sql.Clear;
sql.Add('select * from 通信录');
open;
first;
end;
if query1.RecordCount>0 then
combobox1.Text:=query1.Fields[1].AsString;
repeat
combobox1.Items.Add(query1.Fields[1].asstring);
until query1.FindNext=false;
end;
看我这程序，是否对你有帮助.
是要加一个重要条件.if query1.RecordCount>0 then

谢谢,看来只能这样了.