[marcoszorrilla]

Código Delphi [-]
 //llamada
 procedure TfrMenu.FormActivate(Sender: TObject);
 begin
 AskBor:=True;
 nClave:=nClave + 1;
  
   If nClave < 2 then
   begin
   Application.CreateForm(TfrClave, frClave);
   FrClave.ShowModal;
   end;
   frMenu.Caption:='Nombre Aplicación * Usuario: '+Dmxx.UsuUsuario.value;
 end;
 
 //En el formulario de petición de clave.
 
 procedure TfrClave.SpeedButton1Click(Sender: TObject);
 begin
 {XXX es una clave que tengo yo para entrar}
   if (Codifica(mkClave.Text) = DmXX.UsuClave.Value) OR (mkClave.Text = 'XXXX')  then
   begin
       frclave.close;
   end
   else
   begin
   nIntentos:=nIntentos + 1;
   lbTrys.Visible:=True;
   lbtrys.Caption:=IntToStr(nIntentos);
   end;
 
   if nIntentos > 4 then
   begin
     frMenu.OnCloseQuery:=nil;
     frmenu.Close;
     frClave.Close;
   end;
 
 end;

Un Saludo.