IDFtp + Download +Dir

[horst]

habe versucht mit:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
  stl : tstringlist;
begin
idftp1.Connect;
if idftp1.connected then
 begin
  stl:=tstringlist.Create;
 IdFTP1.List(DirectoryListBox.Items,'*.*', False);
  try
    for i := 0 to DirectoryListBox.items.count - 1 do
    begin
      stl.Add(DirectoryListBox.items.strings[DirectoryListBox.itemindex]);
      DirectoryListBox.ItemIndex:=DirectoryListBox.ItemIndex+1;
    end;
    idftp1.Get( stl,'c:\Test\'+ stl);
  finally
    stl.Free;
  end;
  idftp1.Disconnect
 end;
end;

ein komplettes ftp-verzeichnis downzuloaden...was nicht funktioniert.
mag mir jemand zeigen was ich falsch mache?