MIDI-Hintergrundmusik in Delphi-Anwendungen abspielen lassen

[010101]

kann den code mal jemand bei sich probieren.

bei mir kommt ne warnung bei:

Stream.Free;
Variable 'Stream' ist möglicherweise nicht initialisiert worden.

der sound der midi funktioniert, aber die form ist nicht mehr sichtbar/ansprechbar.