Создание клиентского приложения для MySQL БД

    TStringList *tl = new TStringList;
 
       ADOCon->GetTableNames(tl);
 
      ComboBox->Assign(tl);

void __fastcall TForm1::BOkClick(TObject *Sender)
{
     AnsiString login,pass;
     AnsiString elogin = ELogin->Text;
     AnsiString epass = EPass->Text;
     DataModule3->ADOTable1->Open();
     DataModule3->ADOTable1->First(); //здесь выходим на первую запись. А где переход на следующую запись?
     while (!DataModule3->ADOTable1->Eof)
     {
     login = DataModule3->ADOTable1->FieldByName("login")->AsString;
     pass = DataModule3->ADOTable1->FieldByName("pass")->AsString;
     if(elogin == login && epass == pass)
     {
         Form1->Visible = false;
         DataModule3->ADOTable1->Edit();
         DataModule3->ADOTable1->FieldByName("lastvisit")->AsDateTime = Now();
         DataModule3->ADOTable1->Post();
         Form2->Show();
         break;
     }
     else
     {
         ShowMessage("Username/password incorrect! Please, check your authorization data.");
         ELogin->Clear();
         EPass->Clear();
         break;
     }
    //А ВОТ ТУТ ДЕЛАЕМ ПЕРЕХОД НА СЛЕДУЮЩУЮ!!!
   DataModule3->ADOTable1->Next();
     }
}

     ADOTable1->First();
      for(int i=0; i<ADOTable1->RecordCount; i++)
     {
        //Any work
    ...
    
      ADOTable1->Next();
     
     }