例如:
procedure TDataModule1.ADOQryInsModDepBeforeInsert(DataSet: TDataSet);
begin
  case pas4MMInsertModifyDep.gInsModDep of  //pas4MMInsertModifyDep为另一个Form的单元: TFormInsModDep;
    1..4: begin
            if FormInsModDep.ComboBox1.Text = '' then  
            begin
              MessageDlg(#13#10+'请先选择部门!', mtInformation, [mbOK], 0);
              abort;
            end;
          end;
  end;
//此处ComboBox1.Text的值明明在FormInsModDep窗体中不为空, 但在DataModule中引用时却为空, 不知为什么?
end;