[tgsistemas]

Hola GerTorresM,

según lo que he entendido, quieres mostrar una progressbar que se desplace a medida que recorra los registros del dataset.

Podría ser algo así :

Código Delphi [-]
//utilizo TGauge pero sería lo mismo
Gauge1.MaxValue := 0; 
Gauge1.MaxValue := Dataset.recordcount;
Dataset.DisableControls; // si hay componentes visuales asociados!!
Dataset.First;

try
//operaciones con el dataset
//bla
//bla
finally
Gauge1.Progress := Gauge1.Progress + 1; //añade una posicion al gauge
dataset.Next;
end;
Dataset.Enablecontrols; //importante si hay componentes visuales asociados!!

comprueba el disable/enableControls si tienes componentes visuales (DBEdit, DBGrid, etc...) asociados al dataset.

Saludos.