Application.CreateForm(TForm2,Form2);
  Form2.Parent := Panel1;
  Form2.Show;    

 
procedure ShowFormToPanel(From: TForm; Panel: TCustomPanel);
//將指定的表單設定至Panel中
begin
  From.Parent := Panel;
  From.Align := alClient;
  From.FormStyle := fsNormal;
  From.AutoScroll := True;
  From.BorderStyle:= bsNone;
  From.BorderIcons := [];
  From.Show;
  From.BringToFront;
end;