Und damit einem bei Tippfehlern (oder falsch gesetztem Owner) nicht alles um die Ohren fliegt, prüft man zunächst, ob es das Dingen überhaupt gibt.
Delphi-Quellcode:
var
Shape: TShape;
...
Shape := FindComponent(Name.Text) as TShape;
if Assigned(Shape) then
BTW: Seit wann hat TShape eine Caption-Property? Ich habe hier gerade D2007 am Laufen, da gibt es die jedenfalls nicht.