Не работает SuspendThread для главного потока

[Winexcel]

Доброго времени суток. Хочу остановить главный поток выполнения программы, если делать это через отладчик, то всё работает, форма не реагирует на клики и прочее, подопотный - taskmgr.exe

Что сделано?
1) Получение handle по заголовку
2) Получение processId через handle
3) Через снэпшот получение главного потока
4) Остановка главного потока использованием SuspendThread

const
  THREAD_ALL_ACCESS = 2032639;
  CONTEXT_ALL = 524351;
var
  ThreadEntry: TThreadEntry32;
  SnapHandle, ProcessID, ThreadsID: DWord;
  Bytes:NativeUInt;
  ProcessHandle: THandle;
  ThreadContext: TContext;
  Find: Boolean;
  Buffer: PChar;
begin

  ProcessHandle := FindWindow(nil, 'Диспетчер задач Windows');
  if ProcessHandle = 0 then
    exit;
  GetWindowThreadProcessId(ProcessHandle, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID);
  SnapHandle := CreateToolHelp32Snapshot(TH32CS_SNAPTHREAD, ProcessID);
  ThreadEntry.dwSize := SizeOf(ThreadEntry);
  Find := Thread32First(SnapHandle, ThreadEntry);
    while Find do
      begin
        if ProcessID = ThreadEntry.th32OwnerProcessID then
          begin
            ThreadsID := ThreadEntry.th32ThreadID;
            Break;
          end;
        Find := Thread32Next(SnapHandle, ThreadEntry);
      end;
  CloseHandle(SnapHandle);
  OpenThread(THREAD_ALL_ACCESS, False, ThreadsID);
  SuspendThread(ThreadsID);
  CloseHandle(ProcessHandle);
end;

Проверял значения ThreadsID по самому отладчику, также пробовал вставлять значения и отдельно(уже зная номер потока), но не работает, хотя сама функция SuspendThread возвращает "счет времени предыдущей приостановки работы потока" а не "-1", тобишь всё нормально должно быть, но не работает.

Что я делаю неправильно?

[Winexcel]

Проблема решена, ключевая проблема

  ThreadsID:=OpenThread(THREAD_ALL_ACCESS, False, ThreadsID);

Можно закрывать