a ver, yo creo que el pollo es más pequeño, no hay que engordarlo.
Usa un componente ApplicationsEvents en la ventana que quieras, en el inspector de objetos da doble clic al evento OnMessage y dentro de él llamas a tu rutina.
Código Delphi
[-]
procedure TFormXXX.AplicationsEvents1Message(var Msg: TMsg; var Handled: Boolean);
begin
AppMessage( Msg, Handled);
end;
Saludos