Also vieleicht kann ich einfach nicht richtig rechen, ich mache einen Denkfehler oder es ist ein Bug.
So gehts ja leider nicht immer (erhalte manchmal einfach Minuswerte 
Delphi-Quellcode:
BytesToTransfer:= IdFTP1.Size(Listbox1.Items[i]);
bytestotransfer:=bytestotransfer div 1024 div 1024;
IdFTP1.Get(Listbox1.Items[i], edit1.text+'\'+listbox1.Items[i], true);
Aber so geht es dann plötzlich!!??
Delphi-Quellcode:
BytesToTransfer:= IdFTP1.Size(Listbox1.Items[i])div 1024 div 1024;
ProgressBar1.Max := BytesToTransfer;
IdFTP1.Get(Listbox1.Items[i], edit1.text+'\'+listbox1.Items[i], true);
Nun ja. Egal. Jetzt kann ich endlich weitermachen