FindWindow und WM_COPYDATA

[Gler]

Da ich nicht sicher war in welches UnterForum mein Problem gehört:
Ich würde gerne mit SendMessage und WW_COPYDATA einen einfachen String zwischen einem Delphi-3 Programm und einem Delphi-10-Programm senden.
In D3 zu arbeiten ist hier leider nicht optional, aber auch (hoffentlich) nicht das Problem.

Um das nicht in den Hauptprogrammen zu testen habe ich mit dazu flott zwei neue Programme erstellt, mit folgendem Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  aCopyData: TCopyDataStruct;
  hTargetWnd: HWND;
  s:string;
begin
  s:='test';
  with aCopyData do
  begin
    dwData := 0;
    cbData := StrLen(PChar(s)) + 1;
    lpData := PChar(s)
  end;

 hTargetWnd:=FindWindow(nil,'test');
 htargetWnd:=strtoint(Edit1.Text);        //weil findwindow nicht das richtige liefert
 if hTargetWnd <> 0 then
    SendMessage(hTargetWnd, WM_COPYDATA, Longint(Handle), Longint(@aCopyData))
  else
    ShowMessage('No Recipient found!');
end;

Zum Ersten gibt mir FindWindow ein falsches Handle.
Zwar wird hier scheinbar irgendwas vom anderen Programm gefunden, wenn denn das zweite Programm nicht gestartet ist kriege ich hier 0, aber was gefunden wird ist grundsätzlich verschieden vom Handle dass ich zum testen am zweiten Programm direkt ausgebe - und wenn ich das dann von Hand ins Edit-Feld eingebe funktioniert das senden auch.

Zum Zweiten scheint sich mir beim Auslesen irgendwo ein Fehler eingeschlichen zu haben - erst hatte ich einfach label1.Caption := Stext, allerdings hat mir das immer nur den ersten Buchstaben ausgegeben, dann habe ich versucht das Array auszulesen, aber das hat noch weniger geklappt (wobei hier sicher nur ein saublöder Struddelfehler drinne ist)

Delphi-Quellcode:

procedure TForm1.WMCopyData(var Msg: TWmCopyData);
var
  sText: array[0..99] of Char;
    i: Integer;
  s: string;
begin

  StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData);

  s := '';
  for i:=1 to length(Stext) do
    begin
      s := s + sText[i];
    end;
  label1.Caption := s;
end;

Danke im Vorraus