1:
2:
3:
4:
5:
6:
7:
8:
9:

begin
 panelform.borderstyle := bsnone;  // Wenn du deine Form mit Rahmen anzeigen willst dann lösche die zeile...
 panelform.visible := true;
 panelform.left := hauptform.left + panel.left + 5;  //...und das +5
 panelform.top := hauptform.top + panel.top + 20;    //... und das +20
 panelform.formstyle := fsstayontop;
 panelform.width := panel.width;
 panelform.height := panel.height;
end;					

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

 
with [DeineForm] do 
begin
 ParentWindow := [DeinPanel].handle;
 BorderStyle := bsNone;
 Top := 0;
 Left := 0;
 Width := [DeinPanel].Width;
 Height := [DeinPanel].height;
 Show;
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:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

procedure ClipForm(Form: TForm; TargetControl: TWinControl);
begin
  with Form do
  begin
     Parent := TargetControl;
     BorderStyle := bsNone;
     Top := 0;
     Left := 0;
     Width := TargetControl.ClientWidth;
     Height := TargetControl.ClientHeight;
     Align := alClient;
     Show;
  end;
end;

procedure UnclipForm(Form: TForm; BorderStyle: TBorderStyle; Width,Height,Left,Top: integer);  overload;
begin
  Form.BorderStyle := BorderStyle;
  Form.Align := alNone;
  Form.Height := Height;
  Form.Width := Width;
  Form.Left := Left;
  Form.Top := Top;
  Form.Parent := nil;
  Form.Show;
end;

procedure UnclipForm(Form: TForm); overload;
var Width, Height, Left, Top: integer;
begin
  Width := Form.Width;
  Height := Form.Height;
  Left := (Screen.DesktopWidth - Width) div 2;  //Desktop Center
  Top := (Screen.DesktopHeight - Height) div 2;
  UnclipForm(Form,bsSingle,Width,Height,Left,Top); //Hier bsSizeable
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  //UnclipForm(Form2,bsSingle,300,300,300,300);
  UnclipForm(Form2);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ClipForm(Form2,Panel1);
end;