procedure  Assign(Source: TMyShape); override;


Description:


Copy a  source image shape properties.


Example:


AShape.Assign(BShape);