VirtualTreeView доработка

[tarakan1983]

Здравствуйте, хочу сделать компонент на основе VirtualTreeView.
Конкретнее в классе TVirtualTreeColumn добавить несколько своих property.

TVirtualStringTreeTestFirst = class(TVirtualStringTree)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
  published

  end;

TVirtualStringTree базовый класс, у него TVTHeader, потом TVirtualTreeColumns = class(TCollection) и соответственно сам TVirtualTreeColumn. Как добраться до TVirtualTreeColumn и к существующим property добавить свои?

[evg_m]

GetHeaderClass: TVTHeaderClass; override;
GetColumnClass; override;

TVTHeaderClass =class of TVTHeader;