Me sirve el comentario Al González, pero con la barra clásica utilizo el evento onWork del componente TIdFTP para rellenarla, pero con el cx no puedo, este es el código que uso:
Código Delphi
[-]
procedure TMain.FTPWork(ASender: TObject; AWorkMode: TWorkMode;
AWorkCount: Int64);
begin
barra.Position := AWorkCount div 1024;
end;