Scrollen per Mausrad will nicht

[daschaos]

Ich versuche meine Komponente, abgeleitet von TCustomPanel, auch auf das Scrollen des Mausrads reagieren zu lassen, allerdings macht er da nur groben Unfug . Der Scrollbalken bewegt sich garnich und die Ausgabe der Komponente wird völlig zertsört... Wenn ich die Scrollbars "von Hand" verschiebe funktioniert alles einwandfrei, nur wäre es halt schick, wenn man auch per drehen des Mausrads scrollen könnte.

Weiß da jemand auf Anheib, was ich falsch mache?

Schonmal vielen lieben Dank!!!

Liebe Grüße,
Laura

Delphi-Quellcode:

procedure CMMouseWheel(var Message: TCMMouseWheel);
var
  ScrollDelta: Integer;
begin
  inherited;

  ScrollDelta := 0;

  if (Message.Result = 0) then
  begin
    with Message do
    begin
      Message.Result := 1;

      if ssCtrl in ShiftState then
        ScrollDelta := Sign(WheelDelta) * ClientHeight
      else
        ScrollDelta := WheelDelta;
      end;
  end;

  ScrollBy(0, ScrollDelta);
end;