Calculo de Horas (exactas)

[[Caral]]

Hola a todos y gracias de antemano.
Ya se que pregunto demasiado, pero quiero alcanzar a Roman, pero en preguntas.
Al asunto:
Tengo un pequeño codigo que calcula las horas de diferencia:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
hora1, hora2, horat: TTime;
begin
   hora2:= StrToTime(MaskEdit2.Text);
   hora1:= StrToTime(MaskEdit1.Text);
   horat := hora1 - hora2;
   MaskEdit3.Text:= TimeToStr(horat);
end;

Bueno el caso es que si en el mask coloco hora corta, me sale la hora aproximada, osea sin minutos, si coloco hora larga, si salen los minutos pero tambien am al final, aunque no sea am, si coloco un edit convencional lo mismo.
Pregunta:
Como hago para que me salga la hora corta (Hora, Minutos) completa, sin el am, si podeis lo copiais y lo provais, vereis que no camina.
Que se puede hacer.?
Saludos

[[seoane]]

Prueba con esto:

Código Delphi [-]
MaskEdit3.Text:= FormatDateTime('hh:nn',horat);

[[Caral]]

Hola Seoane
Y que puedo decir, lo haces ver tan facil.
Muchas Gracias Maestro, sirve perfectamente, es lo que buscaba y por supuesto ni idea de como hacerlo.
Gracias
Saludos

[luisgutierrezb]

y si usas:
Maskedit3.Text := FormatDateTime('hh:nn:ss',horat);

[[Caral]]

Hola luisgutierrezb
Gracias, es una opcion mas, a la de seoane, pero muy interesante.
Muchas gracias por las respuestas.
Saludos, Maestros.
PD: Que haria sin vosotros los maestros.
Saludos

[ContraVeneno]

Solo por curiosidad:
¿por que utilizar un maskedit cuando puedes usar un DTPicker?

[[Caral]]

Hola ContraVeneno
Para las Horas, Como?
No conozco la manera de hacer que trabaje con horas, estas seguro?
Saludos

[ContraVeneno]

Estableces la propiedad DateFormat como tipo dfShort y luego la propiedad Kind la estableces a dtkTime y listo
ya puedes manejar horas.