Hola compañero,
Código:
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.