Mehrere Dateien downloaden

[horst]

ich habs

Delphi-Quellcode:

procedure TForm1.DateienausdemInternetdownloaden1Click(Sender: TObject);
var
  SourceFile, DestFile, Source: string;
  i, j: integer;
  s: string;
begin
  for i := 0 to memo3.lines.count - 1 do
  begin
    sourcefile := memo3.lines.strings[i];
    s := ExtractUrlFileName(sourcefile);
    destfile := (extractfilepath(application.exename) + ('\html\')) + s;
    if DownloadFile(SourceFile, DestFile) then
    begin
      ShowMessage('Download succesful!');
    end
    else
      ShowMessage('Mit dem Internet verbunden? Kann' + ' ' + SourceFile + ' nicht downloaden')
  end;
end;