Wie Objekt eines Programms in anderes Programm einbinden?

[aaaaaaaaaa_10]

Delphi-Quellcode:

   with aCopyData do begin
    dwData := 0;
    cbData := StrLen(pChar(t.Name));
    lpData := pChar(t.Name);
  end;

  SendMessage(FindWindow('TKomMainWnd', nil), WM_COPYDATA, Longint(Handle),
              Longint(@aCopyData));

Also so sende ich und so

Delphi-Quellcode:

procedure TKomMainWnd.WMCopyData(var Msg: TWMCopyData);

begin
  oldi := String(PChar(Msg.CopyDataStruct.lpData));
end;

 procedure test(Sender: TObject);
begin
 ShowMessage(oldi);
end;

empfange ich, aber es erscheint nur eine leere Nachricht...