Problemas con la función MCISendString para reproducir/repetir archivos MIDI

[[cHackAll]]

Código Delphi [-]
uses MMSystem;
 
...
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 mciSendString('stop midi', '', 0, 0);
 mciSendString('close midi', '', 0, 0);
 mciSendString('open c:\prueba.mid type mpegvideo alias midi', '', 0, 0);
 mciSendString('play midi repeat', nil, 0, 0);
end;

Fuente
Saludos

[Black_Ocean]

@[cHackAll]

Gracias por tu estupenda ayuda. Me ha resultado muy útil.

Problema solucionado.

Nuevamente, Gracias por tu tiempo colega.

Cordiales saludos.