du machst einfach ne progressbar und en timer rein, der timer darf aber erst auf enabled gesetzt werden wenn du schon ne mp3 geladen hast sonst gibts ne fehlermeldung un das kommt dann in timer
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Max:=Mediaplayer1.Length; //länge bzw. Zeit der Progressbar (auch bei neuem lied) definieren
Progressbar1.Position:=Mediaplayer1.Position //Damit fortschritt angezeigt wird
end;