procedure Assign(Source: TPersistent); override;
When the current object and Source do not sahre the same ClassType, Assign calls the inherited Assign method.