Delphi Scrollbar zvyšuje hodnotu timeru

TTimer má hodnotu Interval, tá je prednastavená na 1000 milisekúnd = 1 sekunda, zmenou hodnoty Interval - zmeníš rýchlosť vykonávania udalosti, ktorú máš definovanú v
OnTimer...

Čiže si nastav nejaký rozsah ScrollBaru Min/Max: napr. Min = 0, Max = 2000, Position = 1000 a v udalosti onChange si ošetri zmenu hodnoty Timer-u.
asi takto:

procedure TForm4.ScrollBar1Change(Sender: TObject);
begin
  Timer1.Interval := ScrollBar1.Position;
end;

Děkuji