Procedure TWPTextStyle.ACopy(Source:TWPTextStyle; FromDef:Byte; ToDef:Byte)Unit: WPRTEDefsClass: WPRTEDefs.TWPTextStyleParameters Source:TWPTextStyle FromDef:Byte ToDef:Byte Description Copy the styles defined in 'Source' to this style or paragraph