[[seoane]]

Prueba con algo asi, en el evento OnChange:

Código Delphi [-]
   Timer1.Interval:= Trackbar1.Position * 1000;