Barra de progreso con TNMFTP

[pborges36]

Hola, tengo una consulta. Tengo hecha una barra de progreso para cuando subo archivos a un ftp, usando un timer verifico las propiedades ftp.BytesTotal y ftp.BytesSent mas o menos asi:

Código Delphi [-]
procedure TConfig.Timer1Timer(Sender: TObject);
begin
      progresstot.Max:=ftp.BytesTotal;
      progresstot.Position:=ftp.BytesSent;
end;

La cuestion es cuando quiero hace lo mismo para cuando traigo archivos desde el ftp. Hice lo siguiente:

Código Delphi [-]
procedure TConfig.Timer1Timer(Sender: TObject);
begin
      progresstot.Max:=ftp.BytesTotal;
      progresstot.Position:=ftp.BytesRecvd;
end;

me da error porque ftp.BytesTotal=0 y no se puede mostrar la barra de progreso. La pregunta es: habra otra forma de saber el tamaño del archivo que estoy bajando?