du gibst Windows keine Chance, das Fenster bzw. die Image-Komponente neu zu zeichnen....
Delphi-Quellcode:
for i := 0 to anz do begin
JpegToBMP(Listbox1.Items.Strings[i], Image1.Picture.Bitmap);
Image1.Update(); // dies sollte die Image-Komponente neu zeichnen lassen
IdFTP1.Put(Listbox1.Items.Strings[i],ExtractFileName(Listbox1.Items.Strings[i]));
end;
BTW: beim letzen Durchgang müsste es eigentlich zu einer Out-Of-Bounds-
Exception kommen... 0 - anz sind (anz + 1) Durchgänge...
entweder
for I:=0 to anz - 1 do ...
oder
for i:=1 to anz do ...