Du meinst eine Komponente die a) ein Shape ist und b) den Namen z.B. Shape1 hat?
begin
IF FindComponent('Shape1') is TShape
THEN FreeandNil(Shape1);
end;
Allerding muss die Komponente dann bereits zur Designzeit vorhanden sein.
Du musst vorher die
Unit ExtCtrls einbinden, weil er sonst TShape irgendwie nicht erkennt.
Meinst du sowas?
Poste mal den Code.