[[eduarcol]]

Lo tenia asi

Código Delphi [-]
while nIntentos < 4 do
begin
   if TablaUsuario.AsString = edusuario.Text then
      Abrir La Aplicacion
   else
   begin
      ShowMessage('Usuario no valido');
       Inc(nIntentos)
   end;
   if nIntentos = 4 then
   begin
      ShowMessage('Ha excedido el limite');
      Close;
   end;
end;

Eso funciona en pascal, en Objetos basta con que se acumule la variable cada vez que el usuario presiona el boton y si ya llego a 4 que lo bote