resultado de restar 2 horas

[CarlosHernandez]

saludos a todos los del foro nuevamente...

estuve buscando en los foros viejos, y encontre informacion sobre la resta de 2 horas, lo tuve leyendo y analizando. bueno mi inquietud es la siguiente

restar 2 horas HE, HS y que me de un total(08:23:19) por ejemplo y hacer una condicion si es mayor o menor de 8 horas, con el codigo que puse me da el siguiente resultado= 08:23:19 a.m. y no quiero que aparezca (a.m.), otra cosa es que cuando pasa de 12 horas se vuelve loco, es decir si son 13 horas dice 1 hora, y el resultado no me da, bueno el codigo que use es el siguiente..

her hora de entrada
hsr hora de salida
hora resultado de la resta

var
  DifH, DifM, DifS, DifMs: Word;
  her,hsr,hora:ttime;
 

          //las hora estan en la tabla Horas
          
          her:=Tabla.IBQHorasHE.AsDateTime;
          hsr:=Tabla.IBQHorasHS.AsDateTime;


  DecodeTime((hsr) -(her), DifH, DifM, DifS, DifMs);
  
hora:= EncodeTime(DifH, DifM, DifS, DifMs);//aqui tranformo el resultado a 
tipo hora pero no se como cambiar el formato de am/pm 

  if hora>=strtotime('06:00:00') then begin
             cesta:=cesta+1;//esto es un contador
  end;

 
      end;

necesito hacer que "hora" me de 26:41:17 por ejemplo que si pasa mas de 12 horas no se tranforme a 1 o 2 horas...

acepto sugerencia de cambiar todo el codigo por uno mejor gracias.........................................................................