打印后激活原来窗口

gErrstr := GetRegPatientInfoFrm.GetPaInfoForm;
  if gErrstr <> '' then
  begin
    Application.MessageBox(PChar(gErrstr), '错误', MB_ICONINFORMATION + MB_OK);
    Exit;
  end;
  ModalResult := mrOk;