Hola,
Bueno. A bote pronto se me hace raro el siguiente código fuente:
Código Delphi
[-]
procedure TfrmLogin.bbCancelClick(Sender: TObject);
begin
If ModalResult <> mrOk Then
close;
end;
El botón cancelar creo yo ni siquiera debería "hacer nada". Bastaría que su propiedad "ModalResult" valiera "mrCancel" para que cuando ese botón fuera pulsado la propiedad "ModalResult" del formulario que lo contiene pasara a valer "mrCancel", cerrando de paso el formulario.
Además la propia condición se me hace extraña: "Si ModalResult es distinto de mrOk, cierra el formulario"... no sé ahora mismo decir porqué, pero, ha llamado mi atención esa condición... En todo caso ya digo que el evento "OnClick" de ese botón puede omitirse.
Otra condición que llama mi atención es:
¿No debería ser al revés? Es decir, si se llevan más de 3 intentos... pero, no menos, ¿no? Bueno. A primera vista esto es lo que noto en el código fuente. Ya comentarás tú o alguien más lo que queráis.