Procedure TWPRTFDataCollectionBase.StatusMsg(Code:Integer; Msg:string)Unit: WPRTEDefsClass: WPRTEDefs.TWPRTFDataCollectionBaseParameters Code:Integer Msg:string