[marcoszorrilla]

Yo utilizo el IdFTP con este código:

Código Delphi [-]
procedure TfrExpterminales.IdFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
pnMensajes.Caption:='Kilobytes Transferidos '+FormatFloat(',0',AWorkCount div 1024);
Application.ProcessMessages;
end;

Un Saludo.