Dies ist die Art, wie ich sie erstelle (handelt sich hierbei um ein "Loch". Zufall wird beim Programmstart zufällig gesetzt, damit beim erneuten Laden keine doppelten Objekte vorhanden sind.
Delphi-Quellcode:
Objekt:=TShape.Create(unit1.Objekt);
Objekt.parent:=map;
Objekt.Name:='Loch'+Zufall+IntTOStr(NummerL);
Objekt.Shape:=stcircle;
Objekt.Top:=Y;
Objekt.Left:=X;
Objekt.Width:=20;
Objekt.Height:=20;
Objekt.Brush.Color:=clblack;
Objekt.OnMouseDown:=Destroyer;
NummerL:=NummerL+1;
exit;