[baton4ik]

Тебе же дали код:

Сообщение от cherepets

на панельке сверху есть кнопочка help.
а вообще вот код (не проверял, писал сразу сюда):

program shit;
begin
repeat until geykeypressed=KE_KEY1;
if not openplayer('/shit.mid', 'audio/midi') then halt; 
if not setplayercount(-1) then halt;
if not startplayer then halt;
repeat until geykeypressed=KE_KEY2;
end.