No me gusta este Codigo, Me ayudan?!

[[marceloalegre]]

Buen dia:
Estoy haciendo un programita en el que cuento tiempo en un cliente, el tema es que estoy contando el tiempo convirtiendo segundos con un formatdatetime pero eso me di cuenta que al llegar a las 24hs se vuelve a cero, logico porque sumaria 1 dia, pero tengo que mostrar solo horas, o sea si esta logueado 25 hs me muestre 25:00:00... por lo tanto genere el siguiente algoritmo:

Código Delphi [-]
  
 function formateartiempo(tpo : integer): string;
 var aux : string;
 begin
    aux := IntToStr(tpo);
    if length(aux) = 1 then
      aux := '0' + aux;
    result := aux;
 end;
 function ConvertirTiempo(totalSeg : integer): string;
 var
    horas, minutos, segundos : word;
 begin
    horas :=totalseg div (3600);
    totalseg := totalseg mod (3600);
    minutos := totalseg div (60);
    segundos := totalseg mod (60);
    result := formateartiempo(horas) + TimeSeparator +
  formateartiempo(minutos) + TimeSeparator + formateartiempo(segundos);
 end;

(el timeseparator es un char que tiene : )

Bueno, esto anda perfercto, pero me gusta ser prolijo y aprender mas,, alguien me puede decir como mejorar esto.. me parece muy fea la funcion formateartiempo para empezar... me pueden dar una mano? gracias.!