Schau mal in der Funktion >GetCurrentTrackPosition(TrackID: Integer): Integer< im
Unit uMyMediaFunctions.pas nach... und zwar genau die 4 Zeile relativ nach Begin in der Doppelschleife... Hier werden ein paar Bedingungen falsch abgefragt - was höchstwahrscheinlich zu dem "Aufhängen" führt.
*facepalm
MfG