Hola Telemaco, aqui tienes un pequeño ejemplo de como se restan dos horas distintas.
Código:
procedure TForm1.BitBtn1Click(Sender: TObject);
var fecha1,fecha2:Tdatetime;
horas:string;
begin
fecha1:=strtoTime('13:00:00');
Fecha2:=strtoTime('14:00:00');
horas:=timetostr(fecha2-fecha1);
edit1.text:=horas;
end;
como veras, es muy sencillo, solo basta restar los tiempos o las horas de cada variable.
espero que te sirva.
un saludo.
