Calculos horarios

[Taribus]

Hola Telemaco, aqui tienes un pequeño ejemplo de como se restan dos horas distintas.

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.