Il suffit d'ajouter un déclaration "vide" avant TCube :


type
TCubes = class;

TCube = class
myCubes :TCubes;
end;