[[escafandra]]

Yo propongo algo parecido a la propuesta de _cero_ con otro enfoque:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
       Application->Initialize();

       TLogin *Log = new TLogin(0);
       if(Log->ShowModal() == mrOk)
          Application->CreateForm(__classid(TForm1), &Form1);
       delete Log;
       Application->Run();
   }
//.................................................................

Si la salida del Log->ShowModal el mrOk el programa continua, si no, se termina. TLogin se encargará de gestionar si el usuario se autentificó de forma correcta y en ese caso devolverá mrOK.

void __fastcall TLogin::Button1Click(TObject *Sender)
{
   if(Edit1->Text == "1234")
     ModalResult = mrOk;
   else
     ModalResult = mrCancel;
}

Subo un ejemplo.

Saludos.