IMG_MASS: array [1 .. 8] of string; // тут хранятся ссылки на png
IMGs: array [1 .. 8] of TsImage;  // Image, в которые будут лоадится pngшки
POTOK: array [1 .. 8] OF TMYTHREAD; // 8 потоков ))
....
for i := 1 to 8 do 
    begin
      POTOK[i] := TMYTHREAD.Create(True);
      POTOK[i].FreeOnTerminate := True;
      POTOK[i].Priority := tpNormal;
      POTOK[i].Resume;
    end;


procedure TMYTHREAD.Execute;
begin
  if DownloadFile('https://' + IMG_MASS[???], ExtractFilePath(ParamStr(0)) + 'weak' + IntToStr(???) + '.png')
  then
  begin
    IMGs[???].ImageIndex := -1;
    IMGs[???].Picture.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'weak' + IntToStr(???) + '.png');
  end;
end;

type 
  TMYTHREAD = class(TThread)
    public
      MyIndex: Byte;
....
for i := 1 to 8 do 
    begin
      POTOK[i] := TMYTHREAD.Create(True);
      POTOK[i].MyIndex := i;
      POTOK[i].FreeOnTerminate := True;
      POTOK[i].Priority := tpNormal;
      POTOK[i].Resume;
    end;
Не создавать же мне столько потоков, сколько проксей в txt)


procedure TMYTHREAD.Execute;
begin
  чекнуть_прокси[myindex]
  end;
end;

{ в stringlist`e Proxy, которые нужно чекнуть гет запросом на валидность, и тип.}