[jhonny]

Pensaría que quizá necesitas hacer un decremento de fThreadRefCount en el ciclo:

Código Delphi [-]
     While fThreadRefCount > 1 do
      begin
        Application.ProcessMessages;
        CheckSynchronize;
        Dec(fThreadRefCount); //Algo así quizá...
      end;