procedure Assign(Source: TPersistent); override;