Adicionar horas

function AdicionaHora(TimeAdd: Integer) : String;

{Adiciona à hora atual um numero de horas determinado. Caso este número seja negativo, ele subtrairá da hora atual}

Var

Horas,Min,SomaHoras,SomaMin : Integer;

S, S1 : String;

begin

Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;

Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;

SomaHoras := SomaHoras+Horas;

SomaMin := SomaMin + Min;

If SomaMin > 59 Then

  begin

  if SomaMin mod 60 = 0 Then

  begin

  Somahoras := Somahoras+(Somamin div 60);

  Somamin := 0;

  end

  else

  begin

  SomaHoras := SomaHoras + (SomaMin div 60);

  SomaMin := SomaMin mod 60;

  end;

  end;

If Somamin = 0 Then

  begin

  S := '00';

  end

else

  begin

  S := InttoStr(Somamin);

  end;

If Length(InttoStr(SomaHoras)) = 1 Then

  begin

  S1 := Concat('0',InttoStr(Somahoras));

  end

else

  begin

  S1 := InttoStr(Somahoras);

  end;

Result := Concat(S1,':',S,':00');

end;