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