unit U_DM; interface uses System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Phys.PGDef, FireDAC.VCLUI.Wait, FireDAC.Comp.UI, FireDAC.Phys.PG, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client; type TDM = class(TDataModule) fdConnNilm: TFDConnection; fdQryNilm: TFDQuery; FDPhysPgDriverLink: TFDPhysPgDriverLink; FDGUIxWaitCursor: TFDGUIxWaitCursor; fdConnEtc: TFDConnection; fdQryEtc: TFDQuery; private { Private declarations } public { Public declarations } end; var DM: TDM; implementation {%CLASSGROUP 'Vcl.Controls.TControl'} {$R *.dfm} end.