//单元1声明引用API函数
function GetCPInfoEx(CodePage: UINT; Flags:DWORD;
  var lpCPInfo: TCPInfoEx):BOOL;stdcall;
  external kernel32 Name
  {$IFDEF UNICODE}
  'GetCPInfoExW';
  {$ELSE}
  'GetCPInfoExA';
  {$ENDIF}

//单元2
  // 这里一旦写上调用 单元1的GetCPInfoEx 的代码，则编译后的EXE马上报病毒，
  if GetCPInfoEx(FCodePage, 0, LCPInfo) then

  // 而修改为调用Windows单元的 GetCPInfoEx 则不会
  if Windows.GetCPInfoEx(FCodePage, 0, LCPInfo) then


// 总得来说非常奇怪，难道在单元1引用GetCPInfoEx就会生成病毒特征码？

单元3：
//一旦写上调用EnumSystemCodePages的代码则编译后的EXE马上报病毒
Windows.EnumSystemCodePages(@DoEnumCodePageCallBackEx, dwFlag);