MediaPlayer O.o

[Leo20]

не срабатывает двойная пауза...

[russian-stalker]

Может так:

procedure TForm1.Button1Click(Sender: TObject);
begin
mediaplayer1.FileName := 'G:\Aram_zam_zam_original.mp3';
If MediaPlayer1.Mode=mpPlaying then
MediaPlayer1.Pause
else
if mediaplayer1.Mode=mpPaused then
mediaplayer1.Play else
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;