我在编辑文件批量删除时!由于删除的文件很多!所以在调试时就现!
并且 end；变为红色!
部分源码
    DelVirusFile('D:\Documents and Settings\Administrator\Local Settings\Temp\13672.exe');
    DelVirusFile('D:\Documents and Settings\Administrator\Local Settings\Temp\530.exe');
    DelVirusFile('D:\Documents and Settings\Administrator\Local Settings\Temp\bind_40236.exe');
    DelVirusFile(gWinPath + '\system32\SYSPOL~1.DLL');
    DelVirusFile(gWinPath + '\system32\tapidef.dll');
    DelVirusFile(gWinPath + '\system32\soundmix.dll');
    DelVirusFile(gWinPath + '\system32\wbem\smtpconfs.dll');
    DelVirusFile('C:\Documents and Settings\All Users\Application Data\Tencent\8046avpa.exe');
    DelVirusFile('C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\13\setup.exe');
    DelVirusFile('C:\Documents and Settings\All Users\Application Data\Tencent\tmp.txt');
    DelVirusFile('C:\Documents and Settings\All Users\Application Data\Tencent\AD1171.exe');
    DelVirusFile('C:\Program Files\CNNIC\Cdn\cdnforie.dll');
    DelVirusFile('C:\Program Files\CNNIC\Cdn\idnconvs.dll');
    DelVirusFile('C:\Program Files\SOHUGAME\gamehall\SohuHall.exe');
    DelVirusFile('C:\Program Files\Internet Explorer\Setup.inf');
    DelVirusFile('D:\Documents and Settings\All Users\Application Data\Tencent\8046avpa.exe');
    DelVirusFile('D:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\13\setup.exe');
    DelVirusFile('D:\Documents and Settings\All Users\Application Data\Tencent\tmp.txt');
    DelVirusFile('D:\Documents and Settings\All Users\Application Data\Tencent\AD1171.exe');
    DelVirusFile('D:\Program Files\CNNIC\Cdn\cdnforie.dll');
    DelVirusFile('D:\Program Files\CNNIC\Cdn\idnconvs.dll');
    DelVirusFile('D:\Program Files\SOHUGAME\gamehall\SohuHall.exe');
    DelVirusFile('D:\Program Files\Internet Explorer\Setup.inf');
    DelVirusFile(gWinPath + '\realupdate.exe');
    DelVirusFile(gWinPath + '\realupdate.exe');
    DelVirusFile(gWinPath + '\system32\DxBho.dll');
    DelVirusFile(gWinPath + '\system32\drivers\cdnprot.sys');
    DelVirusFile(gWinPath + '\system32\mssapi.dll');
    DelVirusFile(gWinPath + '\LastGood\INF\oem13.inf');
    DelVirusFile(gWinPath + '\LastGood\INF\oem13.PNF');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\up.dat');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\verx.dat');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\novel.exe');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\realupdate.exe');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\winampa.exe');
    DelVirusFile(gWinPath + '\system32\0848\baisoa\dllhosta.dll');
    DelVirusFile('C:\Documents and Settings\All Users\Application Data\Tencentbind_40017.exe');
    DelVirusFile('C:\System Volume Information\_restore{3470E5AB-83A7-4886-902D-11816395E4B8}\RP12A0010126.exe');
    DelVirusFile('C:\System Volume Information\_restore{3470E5AB-83A7-4886-902D-11816395E4B8}\RP12A0010130.exe');
    DelVirusFile('C:\Program Files\Common Files\CPUSH\cpush.dll');
    DelVirusFile('D:\Documents and Settings\All Users\Application Data\Tencentbind_40017.exe');
    DelVirusFile('D:\System Volume Information\_restore{3470E5AB-83A7-4886-902D-11816395E4B8}\RP12A0010126.exe');
    DelVirusFile('D:\System Volume Information\_restore{3470E5AB-83A7-4886-902D-11816395E4B8}\RP12A0010130.exe');
    DelVirusFile('D:\Program Files\Common Files\CPUSH\cpush.dll');

    DelVirusFile('D:\Program Files\Common Files\CPUSH\cpush.dll');

    Console.Lines.Add('提示〉〉删除完毕!');

end;

构建
  [错误] VclMain.pas(1963): Too many local constants.  Use shorter procedures