Создать окно авторизации в Builder

TForm2 *Form2;
bool Lserch (AnsiString L){
Form2->Table1->First();
for ( int i = 0; i< Form2->Table1->RecordCount; i++) {
        if (L ==Form2->Table1Login->Value)
        {
                return true;
                break;
        }
Form2->Table1->Next();}
return false;
}
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Table1->Open();
//if (Lserch(f_login->Text)) ShowMessage("true"); else ShowMessage("false");
if (( Lserch(f_login->Text)== false) && (f_pass1->Text==f_pass2->Text) && (f_a_pass->Text=="1234")){
     add->SQL->Clear();
add->SQL->Add("INSERT INTO login (Login, Pass , Perm) VALUES ('"+f_login->Text+"',  '"+f_pass1->Text+"', '"+f_perm->ItemIndex+"')");
 add->ExecSQL();
Form2->Table1->Close();
}else ShowMessage ("Error");
                        
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form2->Close(); 
}

TForm1 *Form1;
bool Lserch (AnsiString L){
Form2->Table1->First();
for ( int i = 0; i< Form2->Table1->RecordCount; i++) {
        if (L ==Form2->Table1Login->Value)
        {
                return true;
                break;
        }
Form2->Table1->Next();}
return false;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form2->Show();  
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close(); 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Table1->Open();
if ((Lserch(Edit1->Text))&&(Edit2->Text == Form2->Table1Pass->Value ))
{
Form3->Show();
Form2->Table1->Close();
Form1->Visible=False;
}
else ShowMessage("Введен не правильный логин или пароль!!!");
}