[lmikle]

Ну тогда уж так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  potok:   TFileStream;
  i:integer;
begin
  http := TIdHTTP.Create(nil);
  try
    for i:= 1 to 97 do
    try
      potok := TFileStream.Create('c:/'+inttostr(i)+'.jpg',fmCreate);
      http.Get('http://img.gdz-online.ws/29032018fdfsrt13/'+inttostr(i)+'.jpg', potok);
    finally
      potok.free;	
    end;
  finally
    http.Free;
  end;
end;