pagecontrol中显示窗体

procedure TFrmMain.N12Click(Sender: TObject);
var
  I: Integer;
    TabSheet2: TTabSheet;
begin

  if Assigned(FrmDotCoordinateEdit) then
  begin
    for I := 0 to FrmMain.MDIChildCount - 1 do
      if (frmMain.MDIChildren[I] is TFrmDotCoordinateEdit) then
      begin
        Self.MDIChildren[I].BringToFront;
        MDIChildren[I].SetFocus;
        Exit;
      end;
  end
  else
  begin
    Application.CreateForm(TFrmDotCoordinateEdit, FrmDotCoordinateEdit);

    TabSheet2:= TTabSheet.Create(self);
    TabSheet2.PageControl := ppgcForm;
    FrmDotCoordinateEdit.Parent:= TabSheet2;
    ppgcForm.ActivePage:=  TabSheet2;
    TabSheet2.Caption:= FrmDotCoordinateEdit.Caption;

    FrmDotCoordinateEdit.Show;
  end;
end;