[roman]

Empezado por jachguate

Habrá que tomar en cuenta, que en este caso la rutina PickMessage (o como se llame) debiera quedar en espera de un mensaje (via una callback y no un ciclo) para evitar la carga del procesador... con lo que aunque teoricamente es un ciclo, la aplicación regularmente se mantiene a la espera de los mensajes... una gran diferencia en cuanto a carga del procesador con el repeat until false propuesto originalmente por mi..

Curioso! Estoy defendiendo tu método de ti mismo

Digamos que a tu ciclo sólo le haría falta un Application.ProcessMessages. Teniendo en cuenta que ProcessMessages se reduce a

while ProcessMessage(Msg) do
  ;

y que Application.Run se reduce a:

repeat
  HandleMessage;
until Terminated;

y HandleMessage a

if not ProcessMessage(Msg) then Idle(Msg);

ambos ciclos se ven muy parecidos, pero tu método tiene la ventaja de no gastar recursos del sistema creando un formulario.

// Saludos