Сообщение в поток

[KoBRaAndrey]

Возникла проблема с отправкой сообщения в поток.

Код потока:

  
  Status:=False;
  while not Terminated do begin
    GetMessage(Msg, 0, 0, 0);
    DispatchMessage(Msg);
    Status:=True;
  end

Просто получаем сообщения и заносим в переменную Status true.
В главной форме, таймером проверяю значение переменной Status в потоке, и вывожу результат.

Код отправки сообщения из формы:

PostThreadMessage(Client.ThreadID, 1001, 0, 0)

Пока не отправлю сообщение - переменная не изменится. Такое чувство, что пока "GetMessage" не получит сообщение - код не будет выполнятся.