Здравствуйте. Есть такая проблемка. Есть две формы SUForm(выбор пользователя) и Form1(основная форма)
Запускается сначала SUForm

begin
  Application.Initialize;
  SUForm:=TSUForm.Create(Application);
  SUForm.ShowModal;
  SUForm.Update;
  while SUForm.ModalResult < -1 do
  Application.ProcessMessages;
  Application.CreateForm(TForm1, Form1);
  SUForm.Hide;
  SUForm.Free;
  Application.Run;
end.

при компиляции окошко выходит с ошибкой

procedure TSUForm.ReadUsers;
var BaseName, ConString:string;
begin
BaseName:='DATE.MDB';
ConString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data Source='+BaseName;
AdoConnection1.ConnectionString:=ConString;
AdoConnection1.Open;
AdoQuery1.Close;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('SELECT Account.ID, Account.FirstName, Account.SecondName FROM Account');
AdoQuery1.Open;
ListUser.Clear;
while not SUForm.ADOQuery1.Eof do //ошибка происходит в этом месте
begin
  ListUser.Items.AddObject((SUForm.ADOQuery1.Fields.Fields[1].AsString + ' ' +
                            SUForm.ADOQuery1.Fields.Fields[2].AsString),
                            Pointer(SUForm.ADOQuery1.Fields.Fields[0].AsInteger));
  SUForm.ADOQuery1.Next;
end;
end;

если форму выбора пользователя делать главной то код работает, а таким способом не хочет. Объясните пожалуйста что я делаю не так?