midiOutPrepareHeader SysEx senden

[sonz]

Hallo Leute, ich hoffe mal mir kann hier jemand helfen.
Ich will eine SysExMessage an ein Sequenzer senden (Cubase).
Beim Vorbereiten der MidiHeaders bekomme ich immer ein
MMSYSERR_INVALPARAM.
Hat jemand ne Idee was ich falsch mache ??

Danke, Ingo

Delphi-Quellcode:

procedure TForm1.SpeedButton5Click(Sender: TObject);
var header : pMidiHdr;
MMRes : MMRESULT;
sysex : pchar;

begin;
  header.lpData := #$F0#$7f#$7F#$06#$01#$f7;
  header.lpData := sysex;
  header.dwBufferLength := sizeof(tmidihdr);
  header.dwFlags := 0;
  mmres := midioutprepareheader(midiout,@header,sizeof(@header));
end;