cantidad de noches

[fixarg]

fecha1:TDate;
fecha2:TDAte;
noches: integer;

noches:=trunc(fecha1-fecha2);


lo raro de esto es que no funciona si se quiere asignar el resultado de la función trunc a un parámetro de un procedimiento almacenado...

IBStoredProc2.Params.ParamValues['noches'].asInteger:=trunc( fecha2 - fecha1);

Da el siguiente error:
internal error e6724

Hay que ahcer la asignación mediante una variable como en el ejemplo

da un error interno