Проверка значений процесса. Неработает код.

[Человек_Борща]

Всем снова здаравствуте!

проблема:
Данный код, не работает. Он почему-то игнорируется.

        if not AppInfo.ForcedAffinityAndPriorityChanging_flag then
        begin
        WaitForSingleObject(hProcess, INFINITE); //Следим постоянно
        CloseHandle(hProcess);
        CloseHandle(hThread);
        end else
        begin
        repeat
        WaitResult2:=WaitForSingleObject(hProcess, 1000); 
        if WaitResult2 = WAIT_TIMEOUT then
          begin
            GetProcessAffinityMask(hProcess,p,s);
            If not (p = Appinfo.CPUAffinity) then
            begin
            SetProcessAffinityMask(hProcess, AppInfo.CPUAffinity);
            end;

            if not (GetPriority(AppInfo.CPUPriority) = GetPriorityClass(hProcess)) then
            begin
            SetPriorityClass(hProcess,GetPriority(AppInfo.CPUPriority));
            end;
        CloseHandle(hProcess);
        CloseHandle(hThread);
          end;
          until WaitResult2 <> WAIT_TIMEOUT;
        end;

См. отладчиком, доходит до:

WaitResult2:=WaitForSingleObject(hProcess, 1000);

после этой строки дальше не идёт.

[Человек_Борща]

Поможет кто?