[Майняк]

Timer->Interval = TrackB->Position;