Mehrere Dateien downloaden

[horst]

Hallo ...
Mit dem Beispiel unten kann ich eine Datei aus dem Internet laden.
Wie kann ich damit 4 oder 5 Dateien laden, liegen auf dem gleichen Server?
Wer mag mir helfen?

Delphi-Quellcode:

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

procedure TForm1.DateienausdemInternetdownloaden1Click(Sender: TObject);
var 
  SourceFile, DestFile: String;
begin
// URL Location
SourceFile = 'http://www.url.de/start.htm';
 // Where to save the file
destfile:=(extractfilepath(application.exename) + ('\html\start.htm'));
  if DownloadFile(SourceFile, DestFile) then
   begin
    ShowMessage('Download succesful!');
  end
  else
    ShowMessage('Mit dem Internet verbunden? Kann die Datei ' + ' ' + SourceFile +' nicht downloaden')
end;