La cosa es sencilla, según entiendo, pero primero tendrás que saber cuantos registros van a eliminarse para poder pasar a la barra de progreso los valores correspondientes, luego no es más que ir incrementando en uno la barra.
Un ejemplo:
Código Delphi
[-]Try
AniWait.Visible:=True;
AniWait.Active:=True;
DmAni2.Gruptarif.Exclusive:=True;
DmAni2.Gruptarif.Open;
DmAni2.Gruptarif.EmptyTable;
DmConta.QrActualiza.Close;
DmConta.QrActualiza.Sql.Clear;
DmConta.QrActualiza.Sql.Add('Select * from CaGtarif ');
DmConta.QrActualiza.Open;
gActualiza.MaxValue :=DmConta.QrActualiza.RecordCount;
DmConta.QrActualiza.First;
While not DmConta.QrActualiza.Eof do
begin
DmAni2.Gruptarif.Append;
gActualiza.Progress:= gActualiza.Progress + 1;
DmAni2.GrupTarifGrupo.Value := DmConta.QrActualiza.Fields[0].AsString;
DmAni2.GrupTarifNombre.Value := DmConta.QrActualiza.Fields[1].AsString;
DmConta.QrActualiza.Next;
end;
AniWait.Visible:=False;
lbmsge.Caption:=' Grupos de Tarifa actualizados: '+FormatFloat(',0',DmConta.QrActualiza.RecordCount);
lbmsge.Left:=Panel1.Width Div 2 - lbmsge.Width div 2 ;
Un Saludo.