сlass и Access violation

[profor]

Есть задача: … определить иерархию сегментов речной сети …
Описал классы так:

//================================Per==========================================
class TMyPer: public TObject
{//пересечение (связь с источниками)
public:
 int P_SInd;   //Пересечение_СегментИндекс (индекс сегмента с которым пересекается)
 int InterInd; //ИнтерцептИндекс (индекс участка пересечения)
 int Posit;    //Позиция пересечения  0 - в начале участка; 1 - в конце участка

 TMyPer(){P_SInd=0;InterInd=0;Posit=0;}   //конструктор
};
//================================PerList======================================
class TMyPList: public TObjectList
{
 private:
    void __fastcall SetItem(int index, TMyPer* val)
    {TObjectList::SetItem(index, val);}
public:
    __property TMyPer* Items[int index] = {read=GetItem, write=SetItem};
};
//================================Segment====================================
class TMySegmet: public TObject
{
public:
 int Start,End,Levl;
 TMyPList * PL;              //пересечения
 TMySegmet()                 //конструктор
      {Start=0;End=0;Levl=0;
       PL=new TMyPList();}
};
//================================SegmentList================================
class TMySegmetList: public TObjectList
{
 private:
    void __fastcall SetItem(int index, TMySegmet* val)
    {TObjectList::SetItem(index, val);}
public:
    __property TMySegmet* Items[int index] = {read=GetItem, write=SetItem};
};
//===========================================================================

Далее где-то в коде:

TMyPList * list=new TMyPList;
list->Add(new TMyPList);
list->Items[0]->Posit=5;   //все работает

TMySegmetList * Segment=new TMySegmetList;
Segment->Add(new TMySegmetList);
Segment->Items[0]->PL->Add(new(TMyPList)); //Access violation

И ни как не могу понять, почему?

[evgn]

Далее где-то в коде:

TMyPList * list=new TMyPList;
list->Add(new TMyPList);
list->Items[0]->Posit=5;   //все работает

TMySegmetList * Segment=new TMySegmetList;
Segment->Add(new TMySegmetList);
Segment->Items[0]->PL->Add(new(TMyPList)); //Access violation

И ни как не могу понять, почему?

Все правильно. В TMySegmetList нет PL.

TMySegmetList * Segment=new TMySegmetList;
Segment->Add(new TMySegmet);//TMySegmetList -> TMySegmet
Segment->Items[0]->PL->Add(new(TMyPList)); //ok?

[profor]

Да, Спасибо. Поспешил ...