El TrackBar cambia dependiendo de la propiedad PageSize, por default tiene 2, cambialo a 1 y toma el valor de TrackBar1.Position * 1000 que es la unidad en segundos del timer.
Algo así
Código Delphi
[-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
Timer1.Interval := TrackBar1.Position * 1000;
end;
No se si debes de reiniciar el Timer cada vez que cambias el valor, me imagino que si.
Saludos