Bingo! Vielen Dank für die prima Hilfestellung!
Nach einer kleinen Modifikation (for i:=0 to Files.Count - 1) läuft das ganze nun einwandfrei:
Delphi-Quellcode:
procedure TForm1.GetFiles;
var Files: TStringList;
i: Integer;
begin
Files:= TStringList.Create;
IdFTP1.List( Files, 'test.*', False );
for i := 0 to Files.Count - 1 do
IdFTP1.Get( Files[i], 'c:\Daten\' + Files[i], True );
end;
Gruss, Anatol