Moin!
1. Name ist bei TObject noch nicht vorhanden als Eigenschaft.
2. With Figur Do - was soll der M*ll? Du greifst innerhalb einer Klasse auf eine feste Objektinstanz ausserhalb der Klasse zu? Mit anderen Worten: Egal wieviele Instanzen du erstellst, keine kann individuelle Eigenschaftswerte haben? Wozu dann überhaupt
OOP? Das kannst doch dann gleich sein lassen...
Wenn du das nicht so haben willst wie du es getan hast, sondern ordentlich, dann einfach mal das With / Do komplett rausschmeissen und einfach nur den Inhalt des Konstrukts stehen lassen...
MfG
Muetze1