Delphi dicas

Somar duas variaveis ttime e ter um resultado maior que 23:59:59

Function TModulo.SomaHoras(Tempo1, Tempo2: TTime): String;

var

SomaHora, SomaMinuto, Hora1, Minuto1, Segundo1, MSegundo1, Hora2, Minuto2, Segundo2,MSegundo2: Word;

begin

        // Somar Duas Variaveis TTime e ter um resultado maior que 23:59:59

        SomaMinuto := 0;

        SomaHora := 0;

        DecodeTime(Tempo1,Hora1,Minuto1,Segundo1,MSegundo1);

        DecodeTime(Tempo2,Hora2,Minuto2,Segundo2,MSegundo2);

        Segundo1 := Segundo1 + Segundo2;

        Minuto1 := Minuto1 + Minuto2;

        Hora1 := Hora1 + Hora2;

        if Segundo1 >= 60 then

        begin

                SomaMinuto := 1;

                Segundo1 := Segundo1 - 60;

        end;

        Minuto1 := Minuto1 + SomaMinuto;

        if Minuto1 >= 60 then

        begin

                SomaHora := 1;

                Minuto1 := Minuto1 - 60;

        end;

        Hora1 := Hora1 + SomaHora;

        Result := IntToStr(Hora1)+':'+IntToStr(Minuto1)+':'+IntToStr(Segundo1);

end;

por : Wellington Barbosa Rodrigues