unit Main;
...
  TMainForm = class(TUniForm)
    UniTimer1: TUniTimer;
    UniNativeImageList1: TUniNativeImageList;
    UniPopupMenu1: TUniPopupMenu;
    Excell1: TUniMenuItem;
    PDF1: TUniMenuItem;
    UniPanel1: TUniPanel;
    MainStatusBar: TUniStatusBar;
    UniToolBar1: TUniToolBar;
    UniSpeedButton2: TUniSpeedButton;
    bbReport: TUniSpeedButton;
    UniPanel2: TUniPanel;
    grFilials: TUniDBGrid;
    UniHiddenPanel1: TUniHiddenPanel;
    UniEdit1: TUniEdit;
    UniPanel3: TUniPanel;
    UniPageControl1: TUniPageControl;
    UniTabSheet2: TUniTabSheet;
    tvMain: TUniTreeView;
    UniTabSheet3: TUniTabSheet;
    tvAgree: TUniTreeView;
    procedure UniFormCreate(Sender: TObject);
    procedure UniTimer1Timer(Sender: TObject);
    procedure grFilialsFieldImageURL(const Column: TUniDBGridColumn;
      const AField: TField; var OutImageURL: string);
    procedure grFilialsColumnFilter(Sender: TUniDBGrid;
      const Column: TUniDBGridColumn; const Value: Variant);
    procedure grFilialsClearFilters(Sender: TObject);
    procedure UniSpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
   procedure TreeLoad(SearchNode : TUniTreeNode);
   procedure InitButton;
  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication, ServerModule, ActiveX, ActiveDs_TLB,
  ldapsend, synachar, procs;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;

...

procedure TMainForm.TreeLoad(SearchNode : TUniTreeNode);
 var MainNode, NewNode, NewNode1, NewNode2 : TUniTreeNode;
     Ptr : PMyRec1;
     ind : integer;
     ArrAct : array of string;
begin

unit MainModule;

interface

uses
  uniGUIMainModule, SysUtils, Classes, Data.DB, Data.Win.ADODB, Variants, Dialogs,
  RxMemDS, Math, ExportDS, SME2Cell, SME2XLS, sme2xlsx, SME2OLE, IdURI, ldapsend, synachar, strutils;

  procedure SetResourceString(AResString: PResStringRec; ANewValue: PChar);

const
  SNewMsgDlgWarning: PChar = 'Внимание';
  SNewMsgDlgError: PChar = 'Ошибка';
  SNewMsgDlgInformation: PChar = 'Информация';
  SNewMsgDlgConfirm: PChar = 'Подтверждение';
  SNewMsgDlgYes: PChar = 'Да';
  SMewMsgDlgNo: PChar = 'Нет';
  SNewMsgDlgOK: PChar = 'Согласен';
  SNewMsgDlgCancel: PChar = 'Отмена';
  SNewDeleteRecordQuestion: PChar = 'Удалить запись ?';
  SNewDeleteRecord: PChar = 'Удалить ?';

type
 TRegions = set of 0..100;
  TUniMainModule = class(TUniGUIMainModule)
    QVConn: TADOConnection;
    qFilials: TADOQuery;
    dsFilials: TDataSource;
    EmConn: TADOConnection;
    qFilialsID: TIntegerField;
    qFilialsTITLE: TWideStringField;
    qFiles: TADOStoredProc;
    spFiles: TADOStoredProc;
    qFilesID: TAutoIncField;
    qFilesHASH: TWideStringField;
    qFilesID_PARENT: TIntegerField;
    qFilesID_TYPE: TBooleanField;
    qFilesFILE_NAME: TWideStringField;
    qFilesFILE_PATH: TWideStringField;
    qFilesFILE_EXT: TWideStringField;
    qFilesSTATUS: TBooleanField;
    qFilesUPLOAD_DATE: TDateTimeField;
    qFilesNOTE: TWideStringField;
    qFilesFILE_SIZE: TLargeintField;
    qMain: TADOStoredProc;
    qAct: TADOStoredProc;
    spAct: TADOStoredProc;
    qActID: TAutoIncField;
    qActID_FILIAL: TIntegerField;
    qActID_SP: TIntegerField;
    qActDOC_TYPE: TBooleanField;
    qActDOC_TITLE: TWideStringField;
    qActDOC_DATE: TDateTimeField;
    qActNOTE: TWideStringField;
    qActSTATUS: TBooleanField;
    qFilialsRegionCode: TWideStringField;
    qFilialsRegionName: TWideStringField;
    qFilialsAgreePresent: TIntegerField;
    XLSExp: TSMExportToXLS;
    qReport1: TADOQuery;
    qReport1title: TWideStringField;
    qReport1RegionName: TWideStringField;
    qReport1Regioncode: TStringField;
    qReport1AGREEMENT_STATUS: TStringField;
    qReport1TITLE_NUM: TWideStringField;
    qReport1Contragent: TWideStringField;
    qReport1AnalogOff: TStringField;
    XLSExp1: TSMExportToXLS;
    spAgent: TADOStoredProc;
    qAgent: TADOStoredProc;
    qAgentID: TAutoIncField;
    qAgentID_FILIAL: TIntegerField;
    qAgentCONTRAGENT: TWideStringField;
    qAgentSTATUS: TIntegerField;
    qProject: TADOStoredProc;
    qProjectID: TAutoIncField;
    qProjectID_AGENT: TIntegerField;
    qProjectNUMBER: TWideStringField;
    qProjectCREATEDATE: TWideStringField;
    qProjectCREATOR: TWideStringField;
    qProjectPROJTYPE: TSmallintField;
    qProjectPROJTYPENAME: TStringField;
    qProjectSTATE: TSmallintField;
    qProjectSTATENAME: TStringField;
    qProjectPCCOMPLETE: TSmallintField;
    qProjectSTATUS: TBooleanField;
    spProject: TADOStoredProc;
    qProjectCONTRAGENT: TWideStringField;
    qMainID: TAutoIncField;
    qMainID_PROJ: TIntegerField;
    qMainDOCTYPE: TSmallintField;
    qMainDOCTYPENAME: TStringField;
    qMainDOCNUMBER: TWideStringField;
    qMainDOCDATE: TWideStringField;
    qMainDOCSTATE: TSmallintField;
    qMainDOCSTATENAME: TStringField;
    qMainSTATUS: TSmallintField;
    qMainSTARTDATE: TWideStringField;
    qMainENDDATE: TWideStringField;
    qMainCREATOR: TWideStringField;
    spMain: TADOStoredProc;
    procedure UniGUIMainModuleCreate(Sender: TObject);
    procedure qReport1CalcFields(DataSet: TDataSet);
    procedure qFilialsAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
    Step1, Step2, Step3, Step4, Step5 : TRegions;
  public
    { Public declarations }
   UserName,FullUserName,Pwd,Domain1, Domain2, Access1 : string;
   UserID, Access2 : integer;
   function SelectFromAd(fields: String = '*'; where: String = '(objectclass=*)'): String;
   function AttrByName(Attr : string) : string;
   function Params_RW : integer;
  end;

  type
  PMyCode = ^TMyCode;
  TMyCode = record
    ObjCode : string;
  end;

function UniMainModule: TUniMainModule;

implementation

{$R *.dfm}

uses
  UniGUIVars, ServerModule, uniGUIApplication, UniGUITypes, UniGUIDialogs, procs,
  Windows, Consts, DBConsts, VDBConsts, Report1, Main, AddData;

function UniMainModule: TUniMainModule;
begin
  Result := TUniMainModule(UniApplication.UniMainModule)
end;

...

procedure TUniMainModule.qFilialsAfterScroll(DataSet: TDataSet);
begin
 MainForm.TreeLoad(nil);
 //MainForm.InitButton;
end;