unit Config; interface uses HashDBProvider, InterfaceDataProvider, SysUtils; type TConfigProvider = class(THashDBProvider) private protected function GetTableName: string; override; end; implementation { TConfigProvider } function TConfigProvider.GetTableName: string; begin Result := 'Config'; end; end.