Parameter Übergabe bei CreateThread

[Desmulator]

Guten Morgen,

nachdem ich mir gestern die ganze Nacht um die Ohren geschlagen habe um dieses Problem zu lösen, dachte ich, da frag ich mal euch. Das Problem ist folgendes, der Parameter, der an eine ThreadProc übergeben wird ist bei mir nil, obwohl ich ihn gesetzt habe. Das der Speicher aufgeräumt wurde, kann nicht sein, da ich vorher welchen über GetMem reserviert habe und diesen erst wieder im gestarteten Thread freigebe. Weite Details in Quellcode:

Delphi-Quellcode:

{ Threadstarter. }
procedure TBaseSoundNotify.RegisterNotifyEvent(Proc : TBaseSoundNotifyProcedure; Position : Cardinal);
var
  NotifyDesc : TBaseSoundNotification;
  NotifyDescPtr : PBaseSoundNotification;
  ThreadID : Cardinal;
begin
  // Ich fülle einen Record mit Werten. Es geht auch alles wunderbar.
  NotifyDesc.Position := Position;
  NotifyDesc.Proc := Proc;
  NotifyDesc.EventHandle := CreateEvent(nil, false, false, nil);
  NotifyDesc.Buffer := self.Buffer;

  // Ich reserviere in NotifyDescPtr genug Speicher um NotifyDesc rein zu schieben.
  GetMem(NotifyDescPtr, SizeOf(TBaseSoundNotification));
  // Was ich dann letzendlich auch mache.
  Move(NotifyDesc, NotifyDescPtr^, SizeOf(TBaseSoundNotification));

// WriteLn(Cardinal(NotifyDescPtr));

  // Nun übergebe ich den Pointer NotifyDescPtr an die CreateThread Funktion.
  CreateThread(nil, 0, @EventThread, NotifyDescPtr, 0, ThreadID);
  // Laut MSDN müsste dieser nun dan die ThreadFunktion als einziger Parameter übergeben werden.

  WaitForInputIdle(self.NotifyThreads[High(self.NotifyThreads)], Windows.INFINITE);
end;

{ Threadfunktion. }
procedure TBaseSoundNotify.EventThread(NotificationPtr : Pointer); stdcall;
var
  Notification : TBaseSoundNotification;
begin
  // NotificationPtr sollte auf ein Record vom Type TBaseSoundNotification zeigen. 
  Notification := PBaseSoundNotification(NotificationPtr^)^;
  // Hier wird der Speicher erst wieder freigegeben.
  FreeMem(NotificationPtr, SizeOf(TBaseSoundNotification));
  
  ... // Schleife mit Events und so... bis dahin kommt er ja garnicht^^

end;

Ich bin ratlos. Vorallem weil NotificationPtr in EventTherad nil ist.
Ich hoffe ihr könnt mir helfen. Was mir grade noch einfällt. Als ich oben in RegisterNotifyEvent noch ein WriteLn(Cardinal(NotifyDescPtr)) stehen hatte, wurde der richtige Pointer übergeben und nicht nil.