Problem mit IdFTP upload in einer Schleife

[Andreas L.]

Hi,
ich habe folgende Schleife erstellt:

Delphi-Quellcode:

var
i : Integer;
begin
 for i:=1 to ListBox1.items.count-1 do
  begin
   idftp1.ChangeDirUp;
   idftp1.ChangeDirUp;
   idftp1.ChangeDir('softprose');
   idftp1.ChangeDir('pub');
   idftp1.Put(listbox1.Items.Strings[i],extractfilename(listbox1.Items.Strings[i]),true);
  end;

Gehen tuts nicht, wenn ich mir via ShowMessage(inttostr(listbox1.Items.Strings[i])); zeigen lasse was i ist erscheint auch keine message box. findet wer den fehler?

Greetz und thx