Проблема с воспроизведением звука в Pascal ABC.Net в Windows Forms

[Kostik654]

я добавил эти строки в Checkbox, если он checked, то воспроизводится, но возникает неполадка -- звук играет секунд 5, а потом сам вырубается.

PS Sleep я не буду использовать, это приводит к зависанию формы как обычно

procedure Form1.ckb1_CheckedChanged(sender: Object; e: EventArgs);

begin

randomize;
var Player1 := new System.Windows.Media.MediaPlayer;
Player1.Open( new System.Uri('amb\'+(PABCSystem.Rando m(6)+1)+'.mp3', System.UriKind.Relative));
if ckb1.checked then
begin
Player1.Play();
end
else
Player1.Stop();

end;