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

procedure TForm1.Button13Click(Sender: TObject);
var
  wnd: THandle;
  btn: THandle;

begin
  wnd := FindWindow(nil, 'exe1');  // sucht das Fenster
  If btn <> 0 then
  //if (HTW <> 0) then SetWindowPos(HTW, 0, 0, 0, 300, 300, SWP_SHOWWINDOW);  //posisionieren
   ???   // zum binden, wie soll der Code sein
  else
  ShowMessage('keine gefunden');
end;					

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

procedure TForm1.Button13Click(Sender: TObject);
var
  dhwnd: THandle;
begin
  dhwnd := FindWindow(nil, 'exe1');
  if dhwnd <> 0 then

    with Panel1 do

      Windows.SetParent(dhwnd, Handle); // exe1 wird gebunden aber bleibt beweglich
      

end;