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

type
  Send = class (TThread)
  private
  protected
    procedure Execute; override;
  end;

procedure send.execute;
var
  s : string;
  http : tidhttp;
begin
  http := tidhttp.create;
  try
    s := http.get ('http://ya.ru/');
  except end;
  {Что-то делаем с данными}
  http.free;
end;

function new_send : boolean;
var
  NewThread : Send;
begin
  NewThread := Send.Create(true);
  NewThread.Priority := tpnormal;
  NewThread.FreeOnTerminate := true;
  NewThread.Start;
  Result := true;
end;

procedure send.execute;
var
  s : string;
  http : tidhttp;
begin
  http := tidhttp.create;
  try
    for i:=1 to 10000000 do  
    s := http.get ('http://ya.ru/');
  except end;
  {Что-то делаем с данными}
  http.free;
end;

var
  http : tidhttp;
begin
  http := tidhttp.create;
  while true do
    try
      http.get ('http://ya.ru/');
    except end;
end;