Salir de un procedimiento recursivo

[marcoszorrilla]

Código Delphi [-]
    procedure Tform1.brute(n:integer; str:string);
    var
      ord:integer;
    begin
      if (n > 0)then
      begin
        for ord := 65 to 90 do
        begin
          brute(n-1, str+chr(ord));
        end;
      end
      else
      begin
       // Llama a una rutina asmCode que bajo determinadas circunstancias
    hace que final se ponga a true
        asmCode(str);
        if(final = true) then
        begin
    // Aquí es donde quiero salirme del todo
          exit;  
        end
      end;
    end;

Acabo de hacer unas pruebas y sale sin ningún problema lo que ocurre es que dependiendo el número que le
pongamos tarda más o menos.
En mi caso hasta el número 4 va relativamente rápido de ahí hacia arriba da la sensación de colgarse pero al
final sale.

Un Saludo.