Ну дык я не вижу связи между сообщением и его обработчиком. При описании обработчика сообщения в заголовке класса надо указать для какого он сообщения предназначен. Например:
Код:
type
TForm1 = class(TForm)
...
procedure MyMessageHandler(var Message : TMessage); message WM_MESSAGE;