Das ist doch nicht viel Aufwand
Timer auf die Form, Interval auf 150 Enabled = False
Gewünschten Code ins OnTimer-Ereignis
Ins OnMouseDown des Buttons: Timer1.Enabled := True;
Ins OnMouseUp: Timer1.Enabled := False;
PS.:
Oh, doch mehr Aufwand als gedacht: Man muss einen Timer auf die Form ziehen und 2 Zeilen Code schreiben