Si tienes razón enecumene no me di cuenta. Pero si en la función le pones esto:
Código Delphi
[-]
mil:= MediaPlayer.Position;
Te funcionaría como buscabas, la primera función era para obtener la duración de una canción y de esta manera consigues la posición actual en el formato x:xx:xx.
Salu2