procedure Assign(Source: TPersistent); override;
When the ClassType for Source is not the same as the current object, Assign calls the inherited Assign method.