procedure TForm1.MenuItem2Click(Sender: TObject);
var
AForm2: TForm2;
ATabSheet: TTabSheet;
begin
ATabSheet := TTabSheet.Create(PageControl1);
AForm2 := TForm2.Create(ATabSheet);
ATabSheet.PageControl := PageControl1;
AForm2.Align := alClient;
AForm2.BorderStyle := bsNone;
AForm2.Parent := ATabSheet;
AForm2.Show;
ATabSheet.SetFocus;
end;