Du kannst natürlich selber mit bspw. case..of auf GetMessage reagieren. Oder du lässt es einfach Windows machen, in dem du DispatchMessage aufrufst. Die TimerKomponente hat sich extra dafür bei Windows "angemeldet".
btw.: In Terminate solltest du besser die beiden Befehle umdrehen. Ist zwar bei dir völlig unerheblich. Aber für zukünftige Projekte.
Denn Deine Vorfahrmethode macht nix weiter als die Variable FTerminated auf True zu setzen. Wenn du jetzt folgenden Konstrukt hast:
Delphi-Quellcode:
repeat
while GetMEssage(msg,...) do
Dispatchmessage(msg);
//hier noch etwas anderes tun
until terminated;
...könnte es zu einem Laufzeitproblem kommen, wenn du erst WM_Quit setzt und dann FTerminated auf True.