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