Цикл сообщения потока зависает в Delphi

У меня есть простая программа Delphi, что я продолжаю работать, в котором я пытаюсь использовать поточную обработку, чтобы разделить функциональность программы от ее GUI и сохранить GUI быстро реагирующим во время более долгих задач, и т.д. В основном у меня есть 'контроллер' TThread и 'представление' TForm. Представление знает дескриптор контроллера, который оно использует для отправки сообщений контроллера через PostThreadMessage. У меня не было проблемы в прошлом использовании этого вида модели для форм, которые не являются основной формой, но по некоторым причинам, когда я пытаюсь использовать эту модель для основной формы, цикл сообщения потока просто выходит.

Вот мой код для цикла сообщения потоков:

procedure TController.Execute;
var
  Msg : TMsg;
begin
  while not Terminated do begin
    if (Integer(GetMessage(Msg, hwnd(0), 0, 0)) = -1) then begin
      Synchronize(Terminate);
    end;

    TranslateMessage(Msg);
    DispatchMessage(Msg);

    case Msg.message of
      // ...call different methods based on message
    end;
  end;
end;

Для установки контроллера я делаю это:

Controller := TController.Create(true); // Create suspended
Controller.FreeOnTerminate := True;
Controller.Resume;

Для обработки сообщений основной формы я попытался использовать обоих Application.Run и следующий цикл (сразу после Controller.Resume)

while not Application.Terminated do begin
  Application.ProcessMessages;
end;

Я работал застрявший сюда - любая справка значительно ценилась бы.