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;