Unit-übergreifende Vorwärtsdeklaration von Klassen?

[TOC]

Hi!

Ich habe folgendes Problem:

In einer Unit definiere ich drei Klassen die gegenseitig voneinander abhängig sind. Also Klasse 1 enthält einen Pointer auf Klasse 2, Klasse 2 enthält einen Pointer auf Klasse 1 und 3, und Klasse 3 enthält einen Pointer auf Klasse 1 und 2. Innerhalb einer Unit ist es nun kein Problem mit "TClassName = Class" eine Klasse vorwärts zu deklarieren um solche Strukturen zu ermöglichen.

Delphi-Quellcode:

Unit ;

Interface

Type
  TClass1 = Class;
  TClass3 = Class;

  TClass2 = Class(TObject)
  Privat
   FClass1: TClass1;
   FClass3: TClass3;
   ...
  End;

  TClass1 = Class(TObject)
  Privat
   FClass2: TClass2;
   ...
  End;

  TClass3 = Class(TObject)
  Privat
   FClass1: TClass1;
   FClass2: TClass2;
   ...
  End;

Mein Problem ist nun das meine Unit langsam unhandlich groß wird (schon über 1200 Zeilen), einfach dadurch das ich alle 3 Klassen in der selben Unit vereinen muss.
Gibt es auch eine Möglichkeit (in Delphi 7) Klassen unit-übergreifend vorwärts zu deklarieren, damit ich die drei Klassen jeweils in eine eigen Unit verlegen könnte?

Ich freue mich über jeden hilfreichen Tip!

Grüße von TOC!