Ошибка при EOleException при копировании данных из запроса

procedure TUtility.load_all_users;
begin
    //инициализация подключения к АД
    ADConnection := TADOConnection.Create(nil);
    ADConnection.ConnectionString := 'Provider=ADsDSOObject;Password=Student1;'+
        'User ID=gt\student1;Encrypt Password=False;Mode=Read;'+
        'Bind Flags=0;ADSI Flag=-2147483648';
    ADConnection.LoginPrompt := false;
 
    //инициализация строки запроса к AD
    ADQuery := TADOQuery.Create(nil);
 
    ADQuery.SQL.Text := 'SELECT DisplayName FROM  ''LDAP://'+domainName+'''';
    ADQuery.Connection := ADConnection;
    try
      ADOpen;
      if not ADQuery.IsEmpty then
      begin
        ADQuery.First;
        while not ADQuery.IsEmpty do
        begin
          all_users.Add(ADQuery.fieldByName('DisplayName').AsString); //формируем список пользователей
          ADQuery.Next;
        end
      end
    except    //не смогли подключиться к АД
      ShowMessage('Возникли проблемы при подключении к AD.' + #13#10 + 'Список пользователей не получен.');
    end;
    ADClose;
    ADQuery.Destroy;
end;

 try
      ADOpen;

while not ADQuery.IsEmpty do

while not ADQuery.Eof do

 ADQuery.SQL.Text := 'SELECT DisplayName FROM  ''LDAP://'+domainName+'''';

QuotedStr(domainName)

QuotedStr(domainName)

ADConnection.Free