Скачать файлы по очереди

var
  s: string;
  URLList: TStringList;
begin
  s := 'http://qwe/132.txt, [url]http://qwe/232.txt[/url], [url]http://qwe/332.txt';
  URLList := TStringList.Create;
  URLList.Delimiter := ',';
  URLList.DelimitedText := StringReplace(s, ' ', '', [rfReplaceAll]);
  MessageBox(Handle, PChar(URLList[0]), '', MB_OK);
  URLList.Free;
end;

function ExtractUrlFileName(const AUrl: string): string;
  var
    i: Integer;
  begin
    i := LastDelimiter('/', AUrl);
   Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
  end;

var     
  stream : TFileStream;
  http : TIdHTTP;
begin
 http := TIdHTTP.Create(nil);
 stream := TFileStream.Create(ExtractUrlFileName(URLList[0]), fmCreate);
 try
    http.get(URLList[0], stream);
finally
    FreeAndNil(http);
    FreeAndNil(stream);
end;
 
end;

function ExtractUrlFileName(const AUrl: string): string;
var
  i: Integer;
begin
    i := LastDelimiter('/', AUrl);
   Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
end;
 
procedure DownloadFile(url:string);
var
  stream : TFileStream;
  http : TIdHTTP;
begin
 http := TIdHTTP.Create(nil);
 stream := TFileStream.Create(ExtractUrlFileName(url), fmCreate);
 try
    http.get(url, stream);
finally
    FreeAndNil(http);
    FreeAndNil(stream);
end;
 
end;
 
 
procedure TForm1.Buttonbtn1Click(Sender: TObject);
var
  s: string;  i:Integer;
  URLList: TStringList;
begin
  s := 'http://qwe/132.txt, [url]http://qwe/232.txt[/url], [url]http://qwe/332.txt';[/url]
  URLList := TStringList.Create;
  URLList.Delimiter := ',';
  URLList.DelimitedText := StringReplace(s, ' ', '', [rfReplaceAll]);
  for i:=0 to URLList.Count-1 do
   DownloadFile(URLList[i]);
  URLList.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  n : Integer;
 
  stream : TFileStream;
  http : TIdHTTP;
begin
  ListURL := 'http://www.whiteh.gov/robots.txt, [url]http://whate.nu/123/fes/m45r.exe';[/url]
  URLList := TStringList.Create;
  URLList.Delimiter := ',';
  URLList.DelimitedText := StringReplace(ListURL, ' ', '', [rfReplaceAll]);
 
  n := URLList.Count;
 
  ShowMessage(IntToStr(n));
 
  http := TIdHTTP.Create(nil);
 
  While (Progress <> n)  Do
  begin
    ShowMessage('start download'+inttostr(Progress));
 
    stream := TFileStream.Create(ExtractUrlFileName(URLList[Progress]), fmCreate);
    http.get(URLList[Progress], stream);
 
    ShowMessage(IntToStr(Progress));
 
    Progress := Progress + 1;
  end;
 
  ShowMessage('OKKK');
 
  FreeAndNil(http);
  FreeAndNil(stream);
  URLList.Free;