[*Caro*]

Hola GerTorresM, también puedes pasar tu barra de progreso como parámetro:

Código Delphi [-]
 
procedure TDMLiquidacion.liquidarPeriodo(pCodigoSuscriptor: Integer; aProgessBar : TProgressBar);
begin
  aProgessBar.Position := 0;
  if not verificarCritica then
    begin
      borraLiquidacion(pCodigoSuscriptor);
      divideLecturas(pCodigoSuscriptor);
      liquidaInteresDiario(pCodigoSuscriptor);
      // liquida Interes de mora mensual
      // liquida reconexiones
      liquidaTarifa(pCodigoSuscriptor);
   .........................................................
   .........................................................
end;
 
procedure TFLiquidaPeriodo.SBLiquidarPeriodoClick(Sender: TObject);
begin
  DMLiquidacion.liquidarPeriodo(Self.CodigoSuscriptor, ProgressBar1);
end;

Saluditos