procedure  Assign(Source: TMyShape); override;


Description:


Copy a  source text shape properties.


Example:


AShape.Assign(BShape);