Делфи. Timeline для плеера

[lesha_firs]

Кто знает как можно зделать полосу со временим на видео.
я кидаую компонент MediaPlayer на форму и присваеваю MediaPlayer1.Display:=Panel все работает паказывает только нельзя перимотать к примеру на серидину....
Я даже не знаю с чего начать...
Пожалуйста дайте хоть какойнибуть намек или сылку на код!!!!!

[Toxa]

свойство position = текущий кадр, меняй на нужное и вот перемотка

[Crivel]

Компонент тракбар.

[lesha_firs]

свойство position = текущий кадр, меняй на нужное и вот перемотка

это понятно а как узнать текуший кадр или там от 0 до 100

А знаеш как оприделить последний кадр

[Пепел Феникса]

св-во Length - последний кадр
процент сами вычислите

[blackstersl]

procedure TForm1.TrackBarChange(Sender: TObject);
begin
if trackbar.position > mediaplayer.position+1000 then
begin
mediaplayer.position:=trackbar1.position;
mediaplayer.Play;
end
else
if trackbar.position < mediaplayer.position-1000 then
begin
mediaplayer.Position:=trackbar.position;
mediaplayer.Play;

end;