[Pilot_Red]

подумать то не хотите...
Timer1.Interval :=TrackBar1.max-TrackBar1.Position;