Como Creo una Pantalla de Acceso de Usuario?

[UTECYBER]

Nesecito que me ayuden a como programar una pantalla de acceso de usuario..Es Decir Cuando Que mi pantalla de acceso me salga antes de iniciar las aplicaciones del sistema.Necesito El Codigo Para validar y la parte donde se introduce.....Pienso que debe ser En la Opcion view Source.......Por favor Ayudenme Con esto.....

Please.
At.Utecyber.

[__cadetill]

no se si te he entendido bien, pero.....

veamos, tienes que crear un formulario donde tengas, por ejemplo, dos TEdits para introducir usuario y contraseña con el codigo de validación pertinente y en el dpr del proyecto poner algo asi (mas o menos)

  Application.Initialize;
  // DataModule que da acceso a la conexion
  Application.CreateForm(TBDades, BDades);

  Login := TLogin.Create(Application);
  try
     try
        Respuesta := Login.ShowModal;
     finally
            FreeAndNil(Login);
     end;
  except
       ShowMessage('error creando form');
  end;

  if Respuesta = mrOK then
   begin
        Application.CreateForm(TfmMenu, fmMenu);
        Application.Run;
   end
  else FreeAndNil(BDades);

Espero te sirva