class TExportColumn : public TCollectionItem {
protected:
 AnsiString FColumnTitle;
 int FColumnSize;
 TFormatDescriptor *FTitlesFormat;// ЭТО мой тип данных с ним все в порядке
// как отдельное свойство работает на ура, но как часть большой коллекции, увы
 TFormatDescriptor *FCellsFormat;
 AnsiString FFieldName;
 TCollection * m_parent;
public:

  __fastcall TExportColumn ( TCollection * parent , AnsiString FColumnTitle_1,
                  int FColumnSize_1,
                  TFormatDescriptor *FTitlesFormat_1,
                  TFormatDescriptor *FCellsFormat_1,
                  AnsiString FFieldName_1):
                  TCollectionItem (parent),
                  m_parent (parent)  ,
  FColumnTitle (FColumnTitle_1), FColumnSize (FColumnSize_1) ,  FTitlesFormat (new TFormatDescriptor),
  FCellsFormat (new TFormatDescriptor) , FFieldName (FFieldName_1) {
    *FTitlesFormat = *FTitlesFormat_1;
    *FCellsFormat= *FCellsFormat_1;
  }

  __fastcall TExportColumn (TCollection *parent):
  TCollectionItem (parent), m_parent (parent)  ,
  FColumnTitle ( "Undefined" ), FColumnSize ( 50 ) ,  FTitlesFormat (new TFormatDescriptor),
  FCellsFormat (new TFormatDescriptor) , FFieldName ( "Undefined" ) {
  }
  
  TPersistent __fastcall GetOwner(void){
     return m_parent;
  }
__published:
 __property   AnsiString ColumnTitle = {read=FColumnTitle, write=FColumnTitle};
 __property   int ColumnSize= {read=FColumnSize, write=FColumnSize};
 __property   TFormatDescriptor* TitlesFormat= {read=FTitlesFormat, write=FTitlesFormat};
 __property   TFormatDescriptor* CellsFormat= {read=FCellsFormat, write=FCellsFormat};
 __property   AnsiString FieldName= {read=FFieldName, write=FFieldName};

};

class TColumnsSet : public TCollection {
 TPersistent * parent_it;
public:
 TColumnsSet(TObject * Parent) : TCollection (__classid (TExportColumn) ) {
 }
 DYNAMIC TPersistent* __fastcall GetOwner(void){
  return parent_it;
 }

};