OnMouseWheel не реагирует когда мышь на компоненте

[Selestis]

Здравствуйте! Возникла следующая проблема: в Lazarus события формы OnMouseWheel не наступают, если мышь находится поверх одного из компонентов. Самое интересное, что в Delphi такого прикола нет - срабатывает всегда. Пробовал ставить KeyPreview = true - не помогло. Есть у кого какие идеи?

[Sibedir]

Можно с кухом на WH_MOUSE помучится

Кстати, может попробовать через Application.OnMessage

procedure TForm1.ApplMouseWeell(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then begin
    if Msg.wParam > 0 then
      ShowMessage ('UP')
    else
      ShowMessage ('DOWN');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := ApplMouseWeell;
end;

[Selestis]

Блин, всё бы хорошо, но в лазарусе таких методов у Application нет... Можно ещё как-то прицепить этот код?