IdFTP upload Fortschrittanzeige (ProgressBar)

[newuser01]

Ich versuche die Fortschrittanzeige beim Upload über FTP wie unten stehend zu realisieren. Das Problem ist, das die ProgressBar nicht bis zum Ende geht, sondern nur dreiviertel der Gesamtanzeige.

Delphi-Quellcode:

IdFTP1.Connect;

  ProgressBar1.Min := 0;
  ProgressBar1.Max := l_bouquets.Items.Count;

  if  l_bouquets.Items.Text <> '' then
  begin
      IdFTP1.ChangeDir('entsprechende Verzeichnis wechseln');

      for I := 0 to l_bouquets.Items.Count - 1 do
      begin
        IdFTP1.Put(l_bouquets.Items[i]);
        ProgressBar1.Position := i;
      end;

  end;

Woran liegt das ?