Cuantos Bytes estoy enviando por FTP?

[[__hector]]

Que version de delphi utilizas?

Puedes utilizar componentes FastNet? Hice una vez una aplicacion que utilizaba dichos componentes, el componente tiene propiedades como bytessent, bytesreceived y bytestotal con el cual puedes calcular el tamaño y el avance del progressbar (en el evento packetreceived)

bueno, si te sirve, seria algo como:

procedure TForm1.ftpPacketRecvd(Sender: TObject);
begin
        if (ftp.BytesTotal = ftp.BytesRecvd) then begin
            Application.Terminate;
        end;
       ProgressBar1.Max := Trunc(ftp.BytesTotal);
       ProgressBar1.Position := trunc(ftp.BytesRecvd);
end;

procedure TForm1.ftpConnect(Sender: TObject);
begin
    FTP.Download('ProyectoCTV.exe', 'C:\WINNT\ProyectoCTV.exe');
end;

Cambiarias bytesRecvd por BytesSent, y el metodo Download por Upload, o algo asi