ich denk mal der Fehler ist
for i:=1 to ListBox1.items.count-1 do
sollte bestimmt
for i:=0 to ListBox1.items.count-1 do
sein. hast du nur ein Item
Außerdem find ich es irrsinn
Delphi-Quellcode:
idftp1.ChangeDirUp;
idftp1.ChangeDirUp;
idftp1.ChangeDir('softprose');
idftp1.ChangeDir('pub');
mit in die schleife zu packen. Dadurch wird doch jedesmal der Ordner gewechselt und dann vermutlich doch wieder in den gleichen ordner gegangen...