на панельке сверху есть кнопочка 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.