Wie Fehler suchen: WM_MouseWheel nicht in WindowProc()

[Schwedenbitter]

Ich habe die Lösung gefunden
Ich suche seit mehreren Tagen nach der Lösung und hatte auch das hier bereits angesehen. Ich hatte mich wohl vom Suchen des Controls blenden lassen und damit das hier nicht hinbekommen:

Delphi-Quellcode:

procedure TChat.Create(Sender: TObject);
begin
  Application.OnMessage:=MessageHandler;
  ...
end;

procedure TChat.MessageHandler(var Msg: tagMSG; var Handled: Boolean);
begin
 if (Msg.message = WM_MouseWheel) and
    (not Log.Focused) then 
  begin
    Log.Perform(Msg.message, Msg.wParam, Msg.lParam);
    Handled:=True;
  end;
end;

Als ich im Code von Zarko Gajic gerade eben das TApplicationEvents gelesen hatte, fiel es mir wie Schuppen von den Augen. Da die beiden vermutliche etwas miteinander zu tun haben, scrollt das genauso smooth; stimmt!

Danke