Calculos - horas

Calculo de Horas

var

  hora1: TDateTime;

  hora2: TDateTime;

  total: TDateTime;

begin

  hora1 := StrToTime('10:00:00');

  hora2 := StrToTime('12:45:53');

  total := Hora2 - Hora1;

  Label1.Caption := FormatDateTime('hh:nn:ss',total);

end;