[Lazarus] How to handle WM_MOUSEWHEEL?

[And3mD]

Hello

I want to do some mouse scrolling control without focus.
So I need handle WM_MOUSEWHEEL by myself. This message is not always  
caught by window WndProc.


In Delphi simply you can do that in TApplication.OnMessage().

In Lazarus i found only TApplication.OnUserInput but there is only message  
type in parameters (Sender: TObject;Msg: Cardinal).

How should I handle WM_MOUSEWHEEL in Lazarus?

Greetings
Andrzej Kilijański