Копирующий конструктор, Для класса со списком списков. Опции

[-QDe5n1K-]

Возникла небольшая трудность.
В программе необходимо использовать копирующий конструктор класса, а котором одно из полей - указатель на начало двунаправленного списка.

Код

type PAL=^Al;
    Al=record
       numb:string[5];
       name:string;
       adress:string;
       next:pal;
    end;
    PIL=^Il;
    Il=record
       ind:string;
       next:pil;
       Ablist:pal;
    end;

    TPhInd=class(TObject)
       inl:pil;
      .............
       constructor create(TPI:TPhInd); overload;
    end;
implementation
.......

Помогите пожалуйста это сделать.
Спасибо.