Fórum Relatório soma de horas #339634

Problema! não consigo somar o Total Geral ( horas trabalhadas no mes )

Tentei dessa forma:
procedure TfrmRhorasTrabalhadas.QRBand3BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var
Ema,Sma,Eve,Sve,Total: TTime;
begin
Modulo1.setPonto.First;
while not Modulo1.setPonto.eof do
begin
Ema := Ema + Modulo1.setPontoENTRADA_MA.Value;
Sma := Sma + Modulo1.setPontoSAIDA_MA.Value;
Eve := Eve + Modulo1.setPontoENTRADA_VE.Value;
Sve := Sve + Modulo1.setPontoSAIDA_VE.Value;
Modulo1.setPonto.Next;
end;
Total := (Sma-Ema)+(Sve-Eve);
qrlblTotalGeral.Caption := TimeToStr(Total);
end;

O problema é que o resultado dessas contas na variavel Total é sempre um valor float, ex: 1,541648554E24 entao quando chega na ultima linha de comando ´qrlblTotalGeral.Caption := TimeToStr(Total);´ ha um erro dizendo que o resultado é uma operação invalida. ´Invalid flothing point operation´.

O que eu faço, me ajudem !

Obrigado pela atenção.