[ViNT]

Помоему так:
begin
player.init(2);
player.select(0);
if not OpenPlayer('/message.mid', 'audio/midi') then Halt;
if not SetPlayerCount(-1) then Halt;
player.set_listener;
.....
repeat

key:=getkeyclicked;
if key=ke_key0 then
if not StartPlayer then Halt;
until key=ke_key1;
...