[FTP] Daten austausch Programm mit macken.

[J.P.]

Hallo Leute! hier ist jetzt mein zweiter anlauf. Theoretisch sollte alles klappen, aber irgentwie lädt er die datei nicht herunter. WAS MACHE ICH FALSCH? Ich bin im moment wirklich Ratlos.

Delphi-Quellcode:

var
  Form1: TForm1;
  SpeicherOrt,uploadfilename,localfile,Initialien,s:string;
  x:integer;
  implementation

{$R *.dfm}

procedure check;
begin
 form1.idftp1.disconnect;
 form1.idftp1.connect(true);
 form1.idftp1.List(form1.listbox2.Items,'',false);
 x:=0;
 repeat
  x:=x+1;
  s:=form1.listbox2.items[x];
  if s[1]+s[2] = initialien[1]+initialien[2] then form1.listbox1.Items.Add(s);
 until x=form1.listbox2.ItemIndex;
 x:=1;
 form1.idftp1.Get(form1.ListBox1.Items[1],Speicherort+form1.ListBox1.Items[1],true); // <<<< da, das Funktioniert aus irgenteinem Grund nicht
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 LMDDirdlg1.Execute;
 edit5.Text:=LMDDirdlg1.Path;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
   idftp1.Disconnect;
   case MessageBox(0, 'Haben sie wirklich alles ausgefüllt? Schauen sie lieber nochmal nach bevor sie "Ja" klicken', 'Sicherheitsfrage     :-)', MB_ICONQUESTION or MB_YESNO) of
     idYes: begin 
    MessageDlg('Gut :-)'+#13#10+'Nun wird die Verbindung zum Internet aufgebaut', mtInformation, [mbOK], 0);
               idftp1.Host:=edit4.Text;
               idftp1.Password:=edit3.Text;
               idftp1.User:=edit2.Text;
               SpeicherOrt:=edit5.text;
               Initialien:=edit1.text;
               check;
               timer1.Enabled:=true;
            end;


   end;
end;
 
procedure TForm1.IdFTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
if x<listbox1.ItemIndex then begin
 x:=x+1;
form1.idftp1.Get(form1.ListBox1.Items[x],Speicherort+form1.ListBox1.Items[x],true);
end else label6.Caption:= 'Es sind '+inttostr(x)+ ' neue Dateien da!';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
check;
end;

end.

Ich hab ein bischen was ausgelassen, aber das gehörte eh nicht zum Problem. Wär echt toll wenn einer von euch wüsste was ich hier falsch mache...
mfG J.P.