procedure ListGetDetectString(DetectString: pchar; maxlen: integer); stdcall; begin StrLCopy(DetectString, PChar(PARSE_FUNCTION), MaxLen); end;