Копирование частично исправлено. Добавлено копирование в TShape.