При открытом браузере (любом) самопроизвольно открываются вкладки рекламы

begin
ExecuteFile('net.exe', 'stop tcpip /y', 0, 15000, true);
if not IsWOW64
 then
  begin
   SearchRootkit(true, true);
   SetAVZGuardStatus(True);
  end;
 TerminateProcessByName('c:\programdata\microsoft\windows\deep layers\winver.exe');
 QuarantineFile('C:\ProgramData\Microsoft\Windows\Deep Layers\lua5.1.dll', '');
 QuarantineFile('c:\programdata\microsoft\windows\deep layers\winver.exe', '');
 QuarantineFile('C:\Program Files (x86)\GUM50FE.tmp', '');
 QuarantineFile('C:\Program Files (x86)\GUT50FF.tmp', '');
 DeleteFile('C:\Program Files (x86)\GUM50FE.tmp', '32');
 DeleteFile('C:\Program Files (x86)\GUT50FF.tmp', '32');
 DeleteFile('C:\ProgramData\Microsoft\Windows\Deep Layers\lua5.1.dll', '32');
 DeleteFile('C:\ProgramData\Microsoft\Windows\Deep Layers\winver.exe', '32');
 DeleteFileMask('C:\ProgramData\Microsoft\Windows\Deep Layers\', '*', true);
 DeleteDirectory('C:\ProgramData\Microsoft\Windows\Deep Layers\');
 RegKeyParamDel('HKEY_CURRENT_USER', 'Software\Microsoft\Windows\CurrentVersion\Run', 'winver.exe');
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1201', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1001', 1);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1004', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '2201', 3);
 RegKeyIntParamWrite('HKCU', 'Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\', '1804', 1);
BC_ImportAll;
ExecuteSysClean;
BC_Activate;
RebootWindows(true);
end.

begin
CreateQurantineArchive(GetAVZDirectory+'quarantine.zip'); 
end.

var
LogPath : string;
ScriptPath : string;
begin
 LogPath := GetAVZDirectory + 'log\avz_log.txt';
 if FileExists(LogPath) Then DeleteFile(LogPath);
 ScriptPath := GetAVZDirectory +'ScanVuln.txt';
  if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 1) then ExecuteScript(ScriptPath) else 
begin
    if DownloadFile('http://dataforce.ru/~kad/ScanVuln.txt', ScriptPath, 0) then ExecuteScript(ScriptPath) 
else begin
       ShowMessage('Невозможно загрузить скрипт AVZ для обнаружения наиболее часто используемых уязвимостей!');
       exit;
      end;
  end;
 if FileExists(LogPath) Then ExecuteFile('notepad.exe', LogPath, 1, 0, false)
end.