Timer/Shape mit Mausrad zum Starten bringen?

[AddiDelphi]

Hey Leute.
Habe im Web gesucht aber nichts gefunden;

wie kann ich die Bewegung eines Shapes mit dem Mausrad starten?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
  begin
    Ball.bewege(rechts,runter);
    Shape1.Left:=Ball.GibX;
    Shape1.Top:=Ball.GibY;

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
begin
  timer1.Enabled:=true;

Wie kann ich es einstellen, dass statt dem Button, der gedrückt werden muss, einfach das Mausrad z.B. nach unten gescrollt werden muss?
Also dass wenn ich das Mausrad drehe
timer1.Enabled:=true; umgesetzt wird?

Danke!