type
 TSprav= class(TComponent)
 private
   { Private declarations }
   fView:tcxGridDBTableView;
   fowner:tcomponent;
   fItems: TList;
   fname:TComponentName;
   function GetItem(aIndex: Integer): TcxGridDBColumn;
   function GetItemCount: Integer;
   procedure SetItem(aIndex: Integer; const aValue: TcxGridDBColumn);

 protected
   { Protected declarations }
       procedure Notification(aComponent: TComponent; Operation: TOperation); override;
 public
   { Public declarations }

   constructor Create(aOwner: TComponent); override;
   destructor Destroy; override;
   property Items[aIndex: Integer]: TcxGridDBColumn read GetItem write SetItem; default;
   procedure AddItem(aItem: TcxGridDBColumn);
   procedure RemoveItem(aItem: TcxGridDBColumn);
   property ItemCount: Integer read GetItemCount;
   function CreateColumn:TcxGridDBColumn;
   property View:tcxGridDBTableView read fview write fview;
   procedure GetChildren(Proc: TGetChildProc; Root: TComponent);
 published
   { Published declarations }
 end;

constructor TSprav.Create(aOwner: TComponent);

begin
 inherited Create(aOwner);
 fItems := TList.Create;
 fowner:=aowner;
  fview:=TcxGridDBTableView.Create(aowner);
   fview.Name:='View'+self.Name;
   fview.Repository:=self;
   fview.SetSubComponent(true);
end;

function TSprav.CreateColumn:TcxGridDBColumn;
var col:TcxGridDBColumn;
begin
 col:=fView.CreateColumn;
 Col.Name:='Column'+inttostr(fitems.Count+1);
 col.SetSubComponent(true);
 additem(col);
 result:=col;
end;
.........

constructor TSprav.Create(aOwner: TComponent);
begin
 inherited Create(aOwner);
 fItems := TList.Create;
 fowner:=aowner;
// if assigned(fview)=false then
//  begin
   fview:=TcxGridDBTableView.Create(nil);
   fview.Name:='View'+self.Name;
   fview.Repository:=self;    //              так делать нельзя
   fview.SetSubComponent(true);
//  end;
end;

type
 TcxGridViewRepositoryAccess = class(TcxGridViewRepository);

destructor TcxCustomGridView.Destroy;
begin
...
 if FRepository <> nil then
   TcxGridViewRepositoryAccess(FRepository).RemoveItem(Self);
...
end;