Problem beim Senden eines Records mit CopyDataStruct

[mac.cat]

Hi,
ich bin momentan dabei eine Komponente zu schreiben, bei der man verschiedene Werte angibt, die daraufhin an eine bestimmte Anwendung in Form eines Records geschickt werden.
Ich habe mich dabei an diesem Tutorial hier orientiert >klick<.

Solange der Rekord nur 1 String enthält, funktioniert das ganze auch noch super. Bei mehreren gibt es einen Access Violation Error.
Ich poste am Besten mal ein wenig meines Codes..

Mein Rekord:

Delphi-Quellcode:

type
   TRegisterRecord = packed record
      appletname: string;
      version: string;
      ersteller: string;
      release: string;
      handle: thandle;
   end;
   PRegisterRecord = ^TRegisterRecord;

Variablen:

Delphi-Quellcode:

  private
     FSaveRecord : TRegisterRecord;
     FRegisterRecord : PRegisterRecord;

Properties:

Delphi-Quellcode:

published
     property Appletname: String read FSaveRecord.appletname write FSaveRecord.appletname;
     property Version: String read FSaveRecord.version write FSaveRecord.version;
     property Ersteller: String read FSaveRecord.ersteller write FSaveRecord.ersteller;
     property Releasedatum: String read FSaveRecord.release write FSaveRecord.release;
    { Published-Deklarationen }

Und schlussendlich meine Funktion:

Delphi-Quellcode:

function TG15Center.registerApp: boolean;
var cds: TCopyDataStruct;
    hWnd: THandle;
begin
        GetMem(FRegisterRecord, sizeof(TRegisterRecord));

        FRegisterRecord.appletname := FSaveRecord.appletname;
        //FRegisterRecord.version := FSaveRecord.version;
        //FRegisterRecord.ersteller := FSaveRecord.ersteller;
        //FRegisterRecord.release := FSaveRecord.release;
        //FRegisterRecord.handle := FSaveRecord.handle;

        try
           cds.dwData := 0;
           cds.cbData := sizeof(TRegisterRecord);
           cds.lpData := FRegisterRecord;
           hWnd := FindWindow(nil, 'Applet Center - Starhawk');
           if hwnd = 0 then
           begin
                Result := false;
                exit;
           end;
           SendMessage(hWnd, WM_COPYDATA, FRegisterRecord.handle, Integer(@cds));
        finally
           FreeMem(FRegisterRecord, sizeof(TRegisterRecord));
        end;
        Result := true;
end;

Momentan wird nur 1 String in den Record geschrieben. Die anderen sind auskommentiert. Wenn ich jetzt jedoch einen weiteren hinzufüge, gibt es beim Senden einen AV Error.

Ich hoffe, ihr könnt mir bei meinem Problem helfen

mfg mac.cat