Procedure TWPBlockTemplates.GetNameList(List:TStrings)Unit: WPCTRTextProducerClass: WPCTRTextProducer.TWPBlockTemplatesParameters List:TStrings