var Minute : byte;
with MyMediaPlayer do case TimeFormat of tfHMS : Minutes := MCI_HMS_Minute(Length); tfMSF : Minutes := MCI_MSF_Minute(Length); {etc etc} end;