IdFTP nie przesyła całęgo pliku na serwer FTP

Witam, mam prosty kodzik:

 var
  I: Integer;
begin
  FTP.Host := SerwerEdit.Text;
  FTP.Username := UzytkownikEdit.Text;
  FTP.Password := HasloEdit.Text;
  FTP.Passive := False;

  try
    FTP.Connect;

    for I := 0 to ZdjeciaListBox.Items.Count - 1 do
    begin
      FTP.Put(ZdjeciaListBox.Items[I], ExtractFileName(ZdjeciaListBox.Items[I]));
      Zdjecia[I] := SerwerZdjec + ExtractFileName(ZdjeciaListBox.Items[I]);
    end;

//    FTP.Quit;
    FTP.Disconnect;
    ShowMessage('Wysyłanie zdjęć na serwer zakończone pomyślnie.');
  except
    on E: Exception do
      ShowMessage(E.Message);
  end;

który wstawia mi pliki na serwer FTP, testowałem go na plikach graficznych bmp jpg png < 1mb.
pliki pojawiają się na serwerze, ale brakuje im kilka lub kilkadziesiąt kB. Na przykład obrazek ma 333kB a na serwerze 330kB. I nie można go otworzyć gdyż jest 'zepsuty'.
Pytanie czy kwestia komponentu czy może serwera (serwer darmowy testowy w cba.pl).
pozdrawiam i proszę o pomoc

Ustaw w IdFTP TransferType na ftBinary bo pewnie masz domyślnie ftASCII.

oczywiście to było to. dzięki. Zaznaczcie odpowiedź jak możecie.

dawno nie używałem idftp, więc nie pamiętałem o tym. pozdro