Why not just use the TMediaPlayer component to play Midi's?!?
But anyway i have found a site with what you are looking for (but its not in delphi, but you might be able to translate it)::
http://francis.dupont.free.fr/coinde...music/midi.htm
Hope this helps...