lenk

ошибка в авторизации помогите пожалуйста!!!
Есть форма на которой есть Edit1 и Edit2, кнопка, база данных в которой таблица с данными логина и пароля, выдает ошибку когда пытаюсь ввести логин пишет сразу же что нет такого логина, хотя в базе он есть(
вот мой код:
void __fastcall TForm8::BitBtn1Click(TObject *Sender)
{
AnsiString al=Edit1->Text;
AnsiString bl;
AnsiString ap=Edit2->Text;
AnsiString bp;
ADOTable1->First();
for (int i=0;i<ADOTable1->RecordCount;i++)
{
bl=ADOTable1->FieldByName("Login")->AsString;
bp=ADOTable1->FieldByName("Password")->AsString;
if (al!= bl)
{
ShowMessage("Логин не верен!");
Edit1->Clear();
return;
}
if (ap != bp)
{
ShowMessage("Пароль не верен!");
Edit2->Clear();
return;
}
else
{
Form1->Show();
Form8->Visible=false;
}
}
}

Добавлено через 1 час 29 минут
все я разобралась))))