Trick um "überkreuzenden Bezug" von Units zu umgehen ?

[stoxx]

kennt irgendjemand eine clevere Möglichkeit um nicht Haufen Umwege gehen zu müssen ?

Ich habe zwei Objecte in zwei verschiedenen Units.
Und will von jedem Object einen Zeiger auf das andere Object speichern können.

in Unit1:

Code:

TClass1 = class

 p : TClass2;

end;

in Unit2:

Code:

TClass2 = class

 p : TClass1;

end;

dummerweise muss ich nun in Unit2 die Unit1 in den Uses Klauseln einfügen und umgekehrt.
Dummerweise kommt ja nun die Meldung "Überkreuzender Bezug zweier Units"
HAb schon einige ZEit gegrübelt, kann man das irgendwie über eine dritte Unit umgehen ?
Forward Deklarationen ? mir is noch keine Lösung eingefallen ?

will nich immer mit:

Code:

TClass2 = class

 p : TObject;

end;

arbeiten .. ständig die Zeiger beim programmieren zu typisieren macht auch keine Laune !

Dankeschön !