SpeedButton.Click wiederholen bis Maustaste losgelassen wird

[Schwedenbitter]

Hallo,

möglicherweise gibt es zu meiner Frage im Forum schon eine Antwort. Ich habe aber - möglicherweise mangels der Suchworte - nichts gefunden.
Ich habe auf einem Form 2 TSpeedButtons. Beim Klick auf den einen wird ein Zähler erhöht und beim anderen eben verringert. Bei großen Zahlen nervt es aber, wenn man immer wieder klicken muss. Ich möchte daher erreichen, dass er beim Klick anfängt zu zählen und beim Loslassen der Maustaste wieder aufhört; so wie bei einem TUpDown.

Im Moment habe ich das umständlich so gemacht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   I:=0;
end;

procedure TForm1.BTimerTimer(Sender: TObject);
begin
   If I > 0 Then Dec(I);
   Label1.Caption:=FormatFloat('0,',I);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BTimer.Enabled:=True;
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BTimer.Enabled:=False;
end;

procedure TForm1.FTimerTimer(Sender: TObject);
begin
   If I < MaxInt Then Inc(I);
   Label1.Caption:=FormatFloat('0,',I);
end;

procedure TForm1.SpeedButton2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FTimer.Enabled:=True;
end;

procedure TForm1.SpeedButton2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   FTimer.Enabled:=False;
end;

Geht das auch einfacher?
Ich wäre auch für Links oder eben passende Suchwörter sehr dankbar.

Gruß, Alex