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:
Código:
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