Problemas con formato TIME

[kes]

Hola a todos.

Tengo un problema con la impresión de un campo en formato TIME con FastReport.
Estoy creando un listado para saber las horas que ha trabajado a lo largo del mes un empleado. Para ello realizo una suma de todas las horas que ha trabajado cada dia y las muestro en otro campo. El problema es que la suma es superior a 24 horas y al pasar de esta cantidad de horas vuelve a empezar a contar de 0.
Si le quito la opción TIME del formato de variable en el Memo, sí que realiza la suma correctamente pero la muestra como un FLOAT, cosa que no me interesa.

¿Alguien sabe como puedo resolver este problema?

Saludos y Gracias.

[jachguate]

En el evento onGetText del campo que sumariza las horas, pone algo como esto:

Código Delphi [-]
Var
  Horas, minutos : Word;

Begin
  Horas := trunc(consulta.fieldbyname('tiempoacumulado').AsDateTime * 24);
  minutos := trunc(frac(consulta.fieldbyname('tiempoacumulado').AsDateTime * 24) * 60);
  text := format('%3.3d:%2.2d', [Horas, minutos]);
end;

Hasta luego.

[kes]

Gracias por la respuesta. El problema que tengo es que necesitaria realizar este cálculo en el mismo listado de FastReport o como máximo en la consulta SQL, por que la aplicación que genera el listado es un componente MTS que no puedo modificar.
En la consulta SQL tampoco he sido capaz de sumar campos de tipo DateTime (donde solo me interesa la parte Time) que superaran las 24 horas.
Utilizo SQL Server.