Circular unit reference to %s и принцип "1 класс - 1 модуль"

[Человек_Борща]

Доброго времени суток!

Есть некий ObjectList, который хранит в себе некоторые TThread
TThread в свою очередь имеет property ссылающуюся на этот TObjectList.

Живут в разных модулях.

Как разрешить им ссылаться друг на друга? Объемы кода каждого класса больше 2 тысяч строк, а в коде потоке все 4 тысячи. Очень не хочется их вместе склеивать.

Ранее было так:

interface

uses ....;

type
  TMyLIst = class;
  TMyThrea = class;

  TMyList = class(TObjectList)
  private
  fThread:TMyThread;
  ....
   end;

  TMyThread = class(TThread)
  private
  fOwner:TMyList;
  ....
   end;

Так работало, но очень и очень сильно трудно ориентироваться в 8к строках, особенно при отладке.

Кто что посоветует?

[Sibedir]

unit Unit2;

interface

type
  TThreadByUnit3 = Pointer;

  TObjectList = class
    F: TThreadByUnit3;
  end;

implementation

uses
  Unit3;

end.

unit Unit3;

interface

uses
  Unit2;

type
  TThread = class;

  TThread = class
    F: TObjectList;
  end;

implementation

end.

[phomm]

http://programmersforum.ru/showthread.php?t=166755
поиск по слову "циклическая"
Насколько я понял - примерно тоже самое, что предлагает Sibedir , т.е. приведение типа уже в реализации.