1:
2:
3:
4:
5:
6:

begin
  button1.Parent:=nil;
  button1.ParentWindow:=FindWindow(nil,'Rechner');
  button1.ControlStyle:=button1.ControlStyle+[csClickEvents];
  button1.BringToFront;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

function FindWindowEx2(hParent: HWND; ChildClassName: string; ChildNr: Word): HWND;
var
  i: Word;
  hChild: HWND;
begin
  hChild := 0;
  Result := 0;
  ChildNr := ChildNr - 1;

  for i := 0 to ChildNr do
  begin
    hChild := FindWindowEx(hParent, hChild, PChar(ChildClassName), nil);
    if hChild = 0 then
      Exit;
    Result := hChild;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: HWND;
begin
  Wnd := FindWindow('TMainForm', 'TeamSpeak 2');
  Wnd := FindWindowEx2(wnd, 'TPanel', 1);
  Wnd := FindWindowEx(wnd, 0, 'TRichEditWithLinks', nil);

  Edit1.Parent := nil;
  Edit1.ParentWindow := Wnd;
  Edit1.ControlStyle := Edit1.ControlStyle+[csClickEvents];
  Edit1.BringToFront;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.BeamenClick(Sender: TObject);
//Btn ist Button, der aus Eigenanwendung in Fremdanwendung verschoben wird.
//Form1 ist Titel (Caption) des Hauptfensters der Fremdanwendung.
//Panel1 ist Titel (Caption) eines Panels im Hauptfenster der Fremdanwendung.
var
  hnd1, hnd2 : integer;
begin
  Btn.Parent:=nil;
  hnd1:=FindWindow(nil,'Form1');
  hnd2:=FindWindowEx(hnd1,0,nil,'Panel1');
  Btn.ParentWindow:=hnd2;
  Btn.ControlStyle:=Btn.ControlStyle+[csClickEvents];
end;