Пишу в Kylix.
Есть несколько типов списков, они наследуют от базового класса TBaseList примерно так:

type
 TStorage=class;  // опережающее определение
 TList1=class(TBaseList)
   public
    parent:TStorage;
    ... // тут функции которые работают со Storage
  end;

И есть объект, содержащий несколько таких списков:

type
 TStorage=class
   public
    list1:TList1;
    list2:TList2;
    ....
    listN:TList1;
    .. // куча всякой бузинес-логики    
  end;

Все это работает, если находится в одном pas файле, а я хочу разделить TStorage и списки... тогда опережающее определение не работает!

как быть с объявлением parent, который сейчас TStorage?