[_fede]

Hola.

Basándome en la estructura de tu código y la solución que propones para implementar la pantalla de password.

procedure TPasswordDlg.BtnEntrarClick(Sender: TObject);
var
Nombre, Password: String;
begin
Nombre := 'Flaco';
Password := 'Flaco20999';

if (EdNombre.Text = Nombre) and (EdPassword.Text = Password) then
frmPrincipal.ShowModal
else
begin
EdNombre.Clear;
EdPassword.Clear;
EdNombre.SetFocus;
BtnEntrar.Enabled := False;

// Usamos, por ejemplo, la propiedad Tag del formulario que INICIALIZAMOS a
// cero para almacenar el número de intentos.
PasswordDlg.Tag := PasswordDlg.Tag + 1;

// Tres intentos erroneos.
if PasswordDlg.Tag = 3 then
ShowMessage('Tres intentos erroneos.');
end;

Close;

end;

Un saludo.