Вроде есть же компонента-ползунок в VCL? Название точно не помню. Надо порыскать в библиотеке компонент.
Компонента есть - TTrackBar называется. Но сама по себе она ничего не делает, ручками надо увязать ее с медиаплеером.
Блин, ну Дельфи рулит. Что не спроси, на все компонент найдется . Там случаем готового проигрывателя нет, а то тогда и заморачиваться ненадо, бери, да расскрашивай готовый
Есть готовый проигрыватель в Delphi - TMediaPlayer называется, правда не всем он нравится (я тоже от него не в восторге).
Ну а по существу вопроса непонятно, как реализовываеся проигрывание медиафайла, вариантов может быть много. Если использовать дельфийский медиаплеер, то надо использовать свойства TMediaPlayer.Frames, TMediaPlayer.Length для определения длины в TTrackBar, а TMediaPlayer.Position для положения бегунка TTrackBar.
