Timer - TrackBar

[[egostar]]

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