Variável currency esta retornando zero mesmo a função tendo

function TFacadeMensalista.getSaldoAnteriorMensalista(idMensalista: Integer; DataInicial, DataFinal: TDateTime): Currency;
var
	vsSQL : String;
begin
	Result := 0;
	vsSQL :=	' select ml_saldo from mensalista_lancamento '
			+ ' where '
			+ ' ml_pessoa = ' + CSql(idMensalista)
			+ ' and ml_data between ' + CSql(DataInicial) + ' and ' + CSql(DataFinal)
			+ ' and ml_tipo = ' + CSql(eML_TIPO_PAGAMENTO)
			+ ' and ml_situacao = ' + CSql(eML_SITUACAO_NORMAL)
			+ ' order by ml_data ';
	controle.DadosAux.ExecutaSQL(vsSQL);
	Result := controle.DadosAux.getCur(ML_SALDO);
end;

function TFP.getSaldoAnteriorMensalista(idMensalista: Integer;
  DataInicial, DataFinal: TDateTime): Currency;
var
  vsSQL: String;
begin

  Result := 0;
  dm.DadosAux.close;
  dm.DadosAux.sql.Clear;
  vsSQL := ' select ml_saldo ' + ' from ' + ' mensalista_lancamento ' +
    ' where ' + ' ml_pessoa = ' + IntToStr(idMensalista) +
    ' and ml_data between ''' + DateToStr(DataInicial) + ''' and ''' +
    DateToStr(DataFinal) + '''' + ' and ml_tipo = ''' + eML_TIPO_PAGAMENTO +
    '''' + ' and ml_situacao = ''' + eML_SITUACAO_NORMAL + '''' +
    ' order by ml_data ';

  dm.DadosAux.sql.Text := vsSQL;

  vsSQL := StringReplace(vsSQL, '/', '.', [rfReplaceAll, rfIgnoreCase]);

  dm.DadosAux.open;
  Result := dm.DadosAux.FieldByName('ml_saldo').AsCurrency;
end;


Chamando a função usei:
eML_SITUACAO_NORMAL:='N'; //Apenas para efeito de teste
eML_TIPO_PAGAMENTO:='X'; //Apenas para efeito de teste
ShowMessage(CurrToStr(getSaldoAnteriorMensalista(1,DateTimePicker1.Date,DateTimePicker2.Date)));