Mediaplayer com progressbar (DELPHI7)

--------------------------------------------------------------------------------
Tutorial escrito...

Vamos utilizar...

1 - Timer (System)
1 - Mediaplayer (System)
1 - OpenDialog (Dialogs)
1 - progressbar (Win32)
1 - trackbar (Win32)
1 - XPManifest (Win32)
1 - Button (Standard)

-----------------------------------------------------------------------------
Organize assim (Ou da maneira que preferir...)

-----------------------------------------------------------------------------
Programando...
-----------------------------------------------------------------------------
código do botao abrir::::::

if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:= OpenDialog1.FileName;
MediaPlayer1.Open;
ProgressBar1.Max:= MediaPlayer1.Length;
TrackBar1.Max:= MediaPlayer1.Length;
ProgressBar1.Position:= MediaPlayer1.Position;
Timer1.Enabled:= true;
end;

------------------------------------------------------------------------

código do TIMER1

ProgressBar1.Position:= MediaPlayer1.Position;

--------------------------------------------------------------------------

código da trackbar1

MediaPlayer1.Position:= TrackBar1.Position;
MediaPlayer1.Play;

-----------------------------------------------------------------------------

VALEUUU....