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