Hallo,
dazu einfach ein Array (oder eine
TList o.ä.) anlegen und dann in zwei geschachtelten Schleifen (
x, y) die
Shape-Objekte erzeugen, s.a.
Komponenten zur Laufzeit erzeugen.
Am besten dazu eine eigene Funktion
CreateShape(TControl parent, int x, int y) erzeugen, welche ein neues
Shape-Objekt erzeugt (daher ist der letzte Code im obigen Link auch nicht so optimal).
PS: Auf das Array (bzw. die Liste) kann verzichtet werden, wenn du danach im Code nicht mehr darauf zugreifen möchtest, sondern es nur zur statischen Anzeige benutzt wird.