[Klassenas]

Сделал таймер для отображения времени в минутах и секундах, прошедшего с начала воспроизведения аудиотрека. Образец кода взял из FAQ. Но таймер не работает. Вернее работает, но показывает что-то своё, мне непонятное. Подскажите, в чём ошибка?

Код:

procedure TForm1.Timer2Timer(Sender: TObject);
 var
  Min, Sec: word;
begin
  with MediaPlayer1 do
  if FileName<>'' then
  begin
    Min:=MCI_TMSF_MINUTE(MediaPlayer1.Position);
    Sec:=MCI_TMSF_SECOND(MediaPlayer1.Position);
    Label3.Caption:=Format('%.2d:%.2d',[Min,Sec]);
end;