Trabajar con el Tmedia Player

[Sotrono]

Nose como lo esta implementando Yoslier, pero supongo que va a utilizar un Timer para que, a medida que se vaya reproduciendo el tema, vaya actualizando el TrackBar.

puedes intentar aprovechar el evento "OnChange" del "TTrackBar". En el mismo puedes hacer uso de la propiedad "Position" del "TTrackBar" para asignarle el valor de esta a la propiedad "Position" del "TMediaPlayer".

Para que esto funcione (o por lo menos para que a mi me funcione) hay que agregarle una variable booleana para distinguir cuando se quiere actualizar la posicion del TrackBar (lo hace el Timer) y cuando se quiere modificar la posicion en el MediaPlayer (se hace con el mouse)

1ro Inicializas Actualizacion como false

Código Delphi [-]
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  if not Actualizacion then begin
    MediaPlayer1.Position := TrackBar1.Position;
    MediaPlayer1.Play;
  end else
    Actualizacion := false;;
end;

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Actualizacion := true;
  TrackBar1.Position := MediaPlayer1.Position;
end;

Bueno, yo lo probe y funciona. Tal vez, como menciona Dec, haya otra forma de hacerlo, pero no encontre el hilo.

Saludos...