【在下拉那表框中添加表的一个字段的值】

Question

我在DELPHI中添加一个表的所有地段值，没有问题，可是关闭窗体时总是报错
什么EOF或BOF,谢谢
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  if ADOTable1.Active then
     ADOTable1.Close ;
     ADOTable1.Open ;
while not  adotable1.Eof do
  begin
     ComboBox1.Items.add (ADOTable1.Fields[4].AsString );
     adotable1.Next;
  end;
end;

Answer 1

For I:=1 to AdoTable.RecordCount Do
  Begin
    ComboBox1.Items.Add(AdoTable1.Fields[4].AsString);
    AdoTable1.Next;
  End;

Answer 2

AdoTable1.First;
ComboBox1.Items.Add(AdoTable1.Fields[4].AsString);
For I:=1 To AdoTable.RecordCount-1 Do
  Begin
  AdoTable.Next;
  ComboBox1.Items.Add(AdoTable1.fields[4].AsString);
  end;

Answer 3

还不行，据说要打补丁，这是DELPHI BUG