TControl* obj = TRectangle3; ShowMessage(obj->Name); // Rectangle3 while (obj->HasParent()) { obj = (TControl*)obj->GetParentComponent(); ShowMessage(obj->Name); // Rectangle2, Rectangle1, Form1 }