Consulta SQL devuelve valor erroneo

[satelit]

Gracias por tu pronta respuesta.
Este el codigo donde ejecuto el procedimiento almacenado dentro de una funcion que devuelve un valor TDate. El campo en la DB es Date:

Código Delphi [-]
   with Datos.IBQr_Obt_UltimaFechaCierre do
    begin
      Close;
      Params[0].Value:=Id_Igl;
      Open;
    end;
  Result:=Datos.IBQr_Obt_UltimaFechaCierreC_ULTIMAFECHA.AsDateTime;

Y este es el codigo de la consulta que recibe el valor de la funcion arriba citada:

Código Delphi [-]
with IBQr_FechaTCierre do
        begin
          Close;
          Params[0].Value:=Id_Igl;
          Params[1].Value:=UltimaFechaCierre; //Esta es la fecha que devuelve la funcion de arriba
          Params[2].Value:=DateOf(DTP_4.Date);
          Open;
        end;

Lo curioso para mi es que si en lugar de la variable UltimaFechaCierre de tipo TDate colocara esto strToDate('fecha a discrecion') funciona perfectamente.