Delphi XE2 программа съедает весь процессор

[satanaFF]

В Delphi XE компилировал и нормально работала программа. Надо было прогу запилить под 64 платформу. Поставил XE2 скомпилил. Через 5-10 минут прога начинает жрать немеренно процессорного времени пока не сожрет все. Код штудировал - нет ничего такого где могла бы тупить прога.
Мб знает что делать, как быть?

procedure TNewThread.Execute;
begin
 FreeOnTerminate:=true;
 CurSite:=-1;
 Work:=true;
 CurProxy:=CurProxyX;
 ProxyAdr:= Copy(DataProxy[CurProxy],1,Pos(':',DataProxy[CurProxy])-1);
 ProxyPort:= Copy(DataProxy[CurProxy],Pos(':',DataProxy[CurProxy])+1,Length(DataProxy[CurProxy]));
 HTTP:=TIdHTTPEx.create;
 HTTP.HandleRedirects:= False;
 HTTP.Request.Accept:= 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
 HTTP.Request.AcceptLanguage:= 'ru,en-us;q=0.7,en;q=0.3';
 HTTP.Request.AcceptEncoding:= 'gzip,deflate';
 HTTP.Request.AcceptCharSet:= 'windows-1251,utf-8;q=0.7,*;q=0.7';
 HTTP.Request.Connection:= 'keep-alive';
 HTTP.Request.CustomHeaders.Add('Keep-Alive: 300');
 //HTTP.ConnectTimeout:=10000;
 //HTTP.ReadTimeout:=10000;
 HTTP.ProxyParams.ProxyServer:= ProxyAdr;
 HTTP.ProxyParams.ProxyPort:= StrToInt(ProxyPort);
 while Work do begin
  // CS.Enter;
   if CurSite<DataSites.Count-1 then Inc(CurSite) else begin
     Work:=false;
     Synchronize(Sett);
   end;
     FSite:=Copy(DataSites[CurSite],1,Pos(';',DataSites[CurSite])-1);
     TRef:=Copy(DataSites[CurSite],1,Pos('|',DataSites[CurSite])-1);
     FRef:=Copy(TRef,Pos(';',DataSites[CurSite])+1,Length(DataSites[CurSite]));
     FClick:=Copy(DataSites[CurSite],Pos('|',DataSites[CurSite])+1,Length(DataSites[CurSite]));
  // CS.Leave;
     HTTP.SendReferer:= False;
     HTTP.Request.UserAgent:= GetRandomUserAgent;
     HTTP.Request.Referer:= 'http://'+FRef;
     try
       HTTP.GetEx('http://'+FSite);
       R:=Random(7);
       if R<>0 then begin
         try
           HTTP.SendReferer:=True;
           HTTP.GetEx('http://'+FSite+FClick);
           Rez:= 1;
         except
           //Form1.Memo1.Lines.Add(inttostr(CurSite)+' except '+inttostr(http.ResponseCode));
           if http.ResponseCode=302 then Rez:= 1 else Rez:= -1;
         end;
       end;
     except
       Rez:= -1;
     end;
     Synchronize(Sync);
  end;
 HTTP.Free;
 dec(Thread);
end;

procedure TNewThread.Sett;
begin
 Form1.Label7.Caption:=IntToStr(StrToInt(Form1.Label7.Caption)-1);
 Form1.Label12.Caption:=IntToStr(StrToInt(Form1.Label12.Caption)+1);
end;

procedure TNewThread.Sync;
begin
 Form1.Label9.Caption:= FRef;
 case Rez of
   1:begin
      Form1.GoodLabel.Caption:=IntToStr(StrToInt(Form1.GoodLabel.Caption)+1);
      Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
     end;
  -1:begin
      Form1.BadLabel.Caption:=IntToStr(StrToInt(Form1.BadLabel.Caption)+1);
      Form1.Gauge1.Progress:=Form1.Gauge1.Progress+1;
     end;
 end;
end;

создается 500 потоков, затем досоздаются новые заместо завершенных чтобы общее число было 500
Все было норм когда компилил в делфе ХЕ

[Delphi_ProGer]

Ну и правильно что тормозит, все дело в синхронизации, как я понял, 500 потоков одновременно хотят изменять значения двуих кепшенов.
И я не пойму, прога оперативу ест или ЦП?

[satanaFF]

при компиляции на XE программа стабильно работала и ничего не ела, а при компиляции в XE2 через 5-10 минут начинает дико жрать ЦП (с 10 процентов до 100 съедает i5 760 и комп просто виснес если вовремя не убил программу или не оставил одно ядро системе).

мне интересно с чего это 500 потоков хотят одновременно изменять 2 кэпшена, написано же Synchronize(Sync); Synchronize(Sett); - разве это не должно как раз заставлять потоки не тупить при записи? или в XE2 Synchronize изменен???

убрал все Synchronize и записили label.caption. 500 потоков без добавления новый. все равно сжирает весь проц, хз в чем беда

[s-andriano]

Ну так продолжайте убирать фрагменты кода дальше - пока не прекратится нежелательный эффект. Значит, в этом месте и ошибка.

[FaTaL]

раз так сжирает проц, то как вариант есть где то бесконечный цикл, который и грузит всё.

[satanaFF]

цикл только один, он прекрасно работает.
убирать нечего больше

[s-andriano]

Чудес не бывает - ищите.

[GunSmoker]

что делать, как быть?

Run / Pause + руки.