unit DataModuleU; interface uses System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB; type TdmMain = class(TDataModule) ADOConnection1: TADOConnection; ADOQuery1: TADOQuery; private { Private declarations } public { Public declarations } end; var dmMain: TdmMain; implementation {%CLASSGROUP 'System.Classes.TPersistent'} {$R *.dfm} end.