Приостановить воспроизведение звука - PascalABC.NET

Формулировка задачи:

делаю простенький плеер с кнопками (одна кнопка - одна песня)

procedure music;
begin
 sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound.wav';
  sound.Play;
end;

при нажатии кнопки играет песня Как мне сделать, чтобы при повторном нажатии кнопки песня перестала играть

Решение задачи: «Приостановить воспроизведение звука»

Листинг программы

var
  IsPlayBack:boolean=false;
...
 // onKeypressed... 
  if IsPlayBack then begin
     IsPlayBack:=false;
     sound.stop;
  end else begin
     IsPlayBack:=true;
     sound.play;
   end;

Объяснение кода листинга программы

В данном коде:

Объявлена булева переменная IsPlayBack типа boolean, которая инициализируется значением false.
...
При нажатии клавиши (оператор if IsPlayBack then begin) происходит следующее:
- Значение переменной IsPlayBack меняется на false.
- Воспроизведение звука останавливается (метод stop объекта sound).
При нажатии клавиши (оператор else begin) происходит следующее:
- Значение переменной IsPlayBack меняется на true.
- Звук начинает воспроизводиться (метод play объекта sound). Список действий:
Объявление переменной IsPlayBack и инициализация значением false.
Изменение значения переменной IsPlayBack на true при нажатии клавиши.
Изменение значения переменной IsPlayBack на false при нажатии клавиши.
Остановка воспроизведения звука при нажатии клавиши.
Начало воспроизведения звука при нажатии клавиши.