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;
procedure TfrClave.SpeedButton1Click(Sender: TObject);
begin
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;