Wert in eine fremde Anwendung zuweisen ?

[Delphiturbo]

Wenn ich aber 2 einfache Anwendung mit Delphi erstelle
dann funktioniert mit diesem Code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('TForm1','FormFremd');
  wnd := FindWindowEx(wnd, 0, 'TEdit', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text)));// ok
  end;
  end;
end.

und so nicht :

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  wnd: HWND;
begin
  wnd := FindWindow('#32770',' Text ');
  wnd := FindWindowEx(wnd, 0, 'RichEdit20A', nil);
  if wnd <> 0 then
  begin
    SendMessage(wnd, WM_SetText, 0, LongInt(PChar(Edit1.Text))); // geht nicht !
  end;
  end;

end.

Sehe Anhang bei ok und nicht ok