[ilang]

Забыл Stop поставить:

Код:

...

    if (Mode = mpPlaying) then       //проверяем состояние
    begin
      Stop;
      ShowMessage ('Музыкальный компакт диск')
    end
...

Хотя, я думаю ты догадался