Ayuda acumular Horas

[courtois]

A mi siempre me ha funcionado esto

Código Delphi [-]
var Entrada, Salida: TDateTime; 
     Horas: Real;
begin
Entrada := Now; // La hora de entrada
...
...
Salida := Now; // La hora de salida del mismo empleado
Horas := (Salida - Entrada) * 24;
end;