Если скорость не крититчна, можно использовать MCI. Достаточно 4-х вызывов mciSendString (дал схематично): Код (Text): mciSendString('open имя_midi_файла alias midi type sequencer'... mciSendString('set midi time format milliseconds'... mciSendString('status midi length'... mciSendString('close midi'...