Вывод данных при авторизации в БД

procedure TFormEnter.Button1Click(Sender: TObject);
var
LogPass:array of string;
I, H, Counst: integer;
Login, Password, LoginAndPassword: string;
begin
setLength(LogPass, 50);
if ((EditLogin.Text=('Admin')) and (EditPassword.Text=('qwerty')))  then
begin
FormEnter.Visible:=False;
FormAdmin.ShowModal;
FormEnter.Close;
end
else
FormBD.ADOTable1.First;
For I:=0 to FormBD.ADOTable1.RecordCount -1 do
begin
LogPass[I]:=FormBD.ADOTable1.FieldValues['Логин']+' '+FormBD.ADOTable1.FieldValues['Паполь'];
FormBD.ADOTable1.Next;
Inc(Counst);
end;
 
LoginAndPassword:=Trim(EditLogin.Text)+' '+Trim(EditPassword.Text);
For H:=0 to Counst do
begin
if LoginAndPassword = LogPass[H] then                                 //мне кажется ошибка где то в этом цикле, как перенести указатель БД с последнего на текущего??
begin
FormEnter.Visible:=False;
FormKlient.Show;
FormKlient.Label6.Caption:=FormBD.ADOTable1.FieldValues ['Фамилия']+' '+FormBD.ADOTable1.FieldValues['Имя']+' '+FormBD.ADOTable1.FieldValues['Отчество'];
 
end
else
Label4.Visible:=true;
EditLogin.Clear;
EditPassword.Clear;
end;

while not Dataset.Eof do
begin
 ...
  dataset.Next;
end;

FormBD.DBGrid1.DataSource.DataSet.Locate('Логин',Login,[loPartialKey]);
FormKlient.Label6.Caption:=FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[1].Value+' '+FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[2].Value+' '+FormBD.DBGrid1.DataSource.DataSet.Fields.Fields[3].Value;