Dateien von einem Ftp server runter/hochladen

[Time2Play]

Also ich habs grade probiert und der SaveDialog öffnet sich immernoch

Code:

procedure TForm1.connectbutClick(Sender: TObject);
 var i,position:integer;
 name,s:string;
begin
if idftp1.connected=false then begin
idftp1.Username:='admin';
idftp1.password:='123456';
idftp1.Host:='127.0.0.1';
idftp1.connect;
Idftp1.List (Listbox1.Items,'',false);
for i:=0 to Listbox1.Count-1 do begin
  name:=listbox1.Items[i];
if SaveDialog1.Execute then begin
  {position:=pos('.',name);
  s:=copy(name,position,4);}
  IdFTP1.Get(Name,'C:\Dokumente und Einstellungen\'+'i', true);
  end
  end
end;

Dann dachte ich mir, lass ich das "if SaveDialog1.Execute" einfach weg und schreibe nur IdFtp1.Get... aber dann kommt ne Error Meldung mit File not found...