Procedure TWPRTFWriter.WriteAStyle(sty:TWPRTFStyleElement; nr:Integer)Unit: WPIOWriteRTFClass: WPIOWriteRTF.TWPRTFWriterParameters sty:TWPRTFStyleElement nr:Integer