Source position: xcms.pp line 201
type TXcmsParseStringProc = function(
para1: Pchar;
para2: PXcmsColor
):LongInt;