procedure  Assign(Source: TMyShape); override;


Description:


Copy a  source line shape properties.procedure Assign overrides inherited Assign.



Example:


AShape.Assign(BShape);