Procedure TWPStyleCollection.DoChangeStyleListUnit: WPCTRStyleColClass: WPCTRStyleCol.TWPStyleCollection