Загрузка ЦП 100% даже при простое и перезагрузке

begin
 ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
 ClearQuarantineEx(true);
 QuarantineFile('C:\Users\Админ\AppData\Local\Temp\NERO1004997\unit_app_75\Toolbar.exe', '');
 QuarantineFile('C:\Users\Админ\AppData\Local\yc\Application\yc.exe', '');
 QuarantineFile('C:\WINDOWS\mssecsvc.exe', '');
 ExecuteFile('schtasks.exe', '/delete /TN "877b5297-a07d-528f-f8b7e07afe10281a" /F', 0, 15000, true);
 ExecuteFile('schtasks.exe', '/delete /TN "Scheduled Update S-1-8-22" /F', 0, 15000, true);
 DeleteFile('C:\Users\Админ\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.ico');
 DeleteFile('C:\Users\Админ\AppData\Local\Microsoft\Start Menu\Вoйти в Интeрнeт.lnk');
 DeleteFile('C:\Users\Админ\AppData\Local\Temp\NERO1004997\unit_app_75\Toolbar.exe', '32');
 DeleteFile('C:\Users\Админ\AppData\Local\yc\Application\yc.exe', '32');
 DeleteFile('C:\Users\Админ\Favorites\Links\Интернет.url');
 DeleteFile('C:\WINDOWS\mssecsvc.exe', '32');
 DeleteService('mssecsvc2.0');
 DeleteFileMask('c:\users\админ\appdata\local\yc', '*', true);
 RegKeyParamDel('HKEY_LOCAL_MACHINE', 'SOFTWARE\Microsoft\Shared Tools\MSConfig\startupreg\ycAutoLaunch_0C46BD3DB1D53B7B3FE89D7186E7A8A8', 'command');
 CreateQurantineArchive(GetAVZDirectory + 'quarantine.zip');
ExecuteSysClean;
 ExecuteRepair(21);
 ExecuteFile('ipconfig', '/flushdns', 0, 10000, true);
 ExecuteWizard('SCU', 2, 2, true);
RebootWindows(true);
end.