sendmessage problem

[Timi-loader]

nja mein code bin ich grade wieder neu am verhunzen... -.-
also jetzt wollt ichs eigendlich nur so machen(halt ein string nur):

Delphi-Quellcode:

//sender
  txt:='meinstring';
  cds.dwData := 0;
  cds.cbData := sizeof(txt);
  cds.lpData := @txt;
  SetForegroundWindow(hPrevWin);
  SendMessage(hPrevWin, WM_COPYDATA, 0, Integer(@cds));

//empfänger
procedure tform1.OnMyMessage(var Msg: TWMCopyData);
var txt: string;
begin
  txt := msg.CopyDataStruct.lpData;
  msg.Result := 1;
  ShowMessage('ankommend: '+txt);
end;

aber so geht das ja nicht..
also da hab ich jetzt den durchblick grad nicht.. irgendwas mit pointer ist ja kein string..

mfg