acWavPlayer example acWavPlayer

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if SpeedButton1.Down then
   begin
    acWavPlayer.SoundType := stMaximize;
    acWavPlayer.Play;
   end
  else
   begin
    acWavPlayer.SoundType := stMinimize;
    acWavPlayer.Play;
   end;
end;