...
Variable1.Value := CalculaSaldoInicialContaReal(PlanoContasReal['SeqContaRed'], empresasempresas['CodEmpresa'], xData, 0);
...
Variable1.Value := CalculaSaldoInicialContaReal(PlanoContasReal['SeqContaRed'], empresasempresas['CodEmpresa'], xData, 0);