Problem mit Klassen

[Airblader]

Hi
Ich hab ein kleines Problemchen *fg*
Folgendes:

Ich habe 2 Klassen, die so definiert sind:

Zitat von Pseudo-Code:

Delphi-Quellcode:

type
   TFoo = class(TObject)
      // Some code here
      public
         BlaBla: TBar;
   end;
   TBar = class(TWasGanzAnderes)
      // Some code here
      public
         Anything: TFoo;
   end;

Jetzt sagt er bei "BlaBla: TBar" natürlich, er kennt TBar nicht.
Ich kann die Klassendef. aber nicht unter die von TBar schieben, da er sonst bei "Anything: TFoo" meckern würde.

Jemand eine Idee wie ich das lösen soll/kann?

air