Salir de un While

[rafita]

Hola compañero,

var intentos : Integer;
	 encontrado : Boolean;

....
Intentos:=0;
Encontrado:=False;
While (not Encontrado) and (Intentos<3) do
begin
	if (TUsuarioUsuario.asstring=Edit1.Text) and (TUsuarioClave.asstring=Edit2.Text) then  // sustituye esto por una busqueda en tu base de datos (Query, Locate,...)
	   Encontrado:=True
	else
	   Inc(Intentos);
end;

if Encontrado then 
  // ---> Puede entrar 
else 
  // Ha superado el nº de intentos permitidos

Prueba con algo así.

Saludos.