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