alle dynamisch erzeugten shapes freigeben?

[Dax]

Nimm dir doch ein Array of TShape und speichere deine Shapes dort. Beim freigeben iterierst du durch das Array und rufst für jedes Element den Destruktor auf.