Ayuda con Password dialog

[valera]

Gracias por contestar, El codigo que les puse cuando la contraseña es correcta entra, eso esta bien, lo que no me funciona del codigo es que cuando la contraseña sea incorrecta quiero que me permita volver a capturar la contraseña hasta 3 veces y despues de las 3 veces sino le atino que me cierre la aplicacion.

[rgstuamigo]

Para qué complicarse tanto,tan sólo has esto en el evento OnCreate de tu Formulario principal:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;//Esto hace que el formulario principal sea no visible.
end;

Luego en tiempo de Diseño pones la propiedad Visible=True y su propiedad FormStyle=fsNormal de tu formulario que es donde el usuario se Loguea, de esa manera cuando corra tu aplicacion lo primero que se va mostrar es el formulario donde se loguea.
Para el caso de sólo permitir 3 intentos pues te es suficiente tener una variable que cuente las veces que el usuario intentó, ésto sería en el boton de Aceptar de tu formulario de Logueo mas o menos así:

Código Delphi [-]
procedure TFormDeLogueo.ButtonAceptarClick(Sender: TObject);
begin
  if El_Logueo_EsValido then  //si el usuario a introducido el login y contraseña valida
       begin
         Self.Hide;//encondo el formulario de Logueo
         Application.MainForm.Show;// Recien muestro el formulario Principal
      end
  else
     begin
     Cantidad_de_Intentos:=Cantidad_de_Intentos+1;
       If Cantidad_de_Intentos=3 then
         begin
           ShowMessage('Intentos Agotados');
           Application.Terminate;//Termina la aplicacion ya intentó 3 veces
         end
       else
         ShowMessage('Usuario desconocido..');
     end;
end;

Desde luego debes inicializar la variable Cantidad_de_Intentos con cero, ésto lo puedes hacer en el evento OnCreate de tu formualrio de Logueo.
Espero te sea de Utilidad..
Saludos...

[valera]

Hola rgstuamigo muchas gracias por la ayuda, apliqué tu idea en el programa y sí funcionó, y tambien gracias a todos los que me respondieron.