type TRegisterFrm = class(TForm) dbgRegister: TDBGrid; dsRegister: TDataSource; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;