Fehler mit einer function!?!

[marabu]

In deinem Ansatz über eine "normale" Form hättest du nur den tight loop vermeiden müssen:

Delphi-Quellcode:

with ListBox1, IdFTP1 do
  for i := 0 to Pred(Items.Count) do
  begin
    Image1.Picture.LoadFromFile(Items[i]);
    Application.ProcessMessages;
    Put(Items[i], ExtractFileName(Items[i]));
  end;

marabu