ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 var
  sect1 : TRTLCriticalSection;

 initializeCriticalSection(sect1);        // Инициализации критической секции

EnterCriticalSection (sect1); //войти в критическую секцию
//Твой код критического участка
LeaveCriticalSection(sect1); //выйти в критическую секцию

  DeleteCriticalSection(sect1);

procedure inv.Execute;
begin
  EnterCriticalSection (CriticalSection);
    form1.Memo2.Lines.Add (timetostr (time));
  LeaveCriticalSection (CriticalSection);
  new_inv (); // запуск нового потока
end;

procedure inv.Execute;
begin
  CriticalSection.Enter;
    form1.Memo2.Lines.Add (timetostr (time));
  CriticalSection.Leave;
  new_inv (); // запуск нового потока
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var
  s : widestring;
  http : tidhttp;
begin
  http := tidhttp.create;
  http.ReadTimeout := 30000;
  s := httpget (http, 'http://awmproxy.com/proxy.php?Id=********&d=1');
  if extractb (s, '[^\r\n]*[^\r\n]') <> nil then
  begin
    CriticalSection.Enter;
      proxys.Clear;
      proxys.AddStrings (extractb (s, '[^\r\n]*[^\r\n]'));
    CriticalSection.Leave;
  end;
  http.Free;
end;

http.ReadTimeout := 30000;