Elegantere Lösung um in dieser Struktur eine zirkuläre referenz zu umgehen?

[bernhard_LA]

würde etwas wie folgt erwarten ....

Delphi-Quellcode:

MyForm = class (TForm) 


    aSnakeSpiel : TSpiel;
  

end;



Tspiel = class 

   
   aSnake : TSnake ; 
   aFood :  TFood ;



   procedure PlayTheGame ; 


end;

TSpiel.PlayTheGame 
begin
     .....
end;