sumar horas

[rober]

hola, ojala y me pudieran ayudar a resolver mi problema...
hice un checador y necesito hacer reportes de las horas de trabajo de un empleado.
tengo una tabla e paradox con los siguientes campos:
clave entrada1 salida1 entrada2 salida2 total

*nota: la primer salida es el receso la 2 entrada es la entrada del receso

por ejemplo tengo los siguientes valores en esta tabla:
clave fecha entrada1 salida1 entrada2 salida2 total
125 02/05/2004 14:00:00 16:00:00 16:20:00 19:00:00

¿como le hago para sacar el total de horas trabajadas en ese dia?

y tambien necesito sumar los totales de por ejemplo dos dias, como le hago para sumar los totales sin que se recorran, por ejemplo para tratar de calular esto lo que hice fue darle valores a el campo total directamente. ejemplo
supongamos que el campo total ya fue calculado y tenemos lo siguiente:
clave_ fecha_____entrada1__salida1_entrada2__salida2__total___
125 02/05/2004 14:00:00 16:00:00 16:20:00 19:00:00 04:40:00
125 03/05/2004 14:00:00 16:00:00 16:20:00 19:00:00 04:40:00
125 04/05/2004 14:00:00 16:00:00 16:20:00 19:00:00 04:40:00
125 05/05/2004 14:00:00 16:00:00 16:20:00 19:00:00 04:40:00
125 06/05/2004 14:00:00 16:00:00 16:20:00 19:00:00 04:40:00

ahora necesito sacar el total.
esto fue lo que hice:
for x:=0 to query1.RecordCount do
begin
//query1.recno:=x;
hora:=hora+(Query1TOTAL.value);
query1.next;
end;
edit3.Text:=timetostr(hora);

y me aparece como resultado en el edit 4:00 y deberia de salir 23:40 pero si cambio el valor inicial de la 'x' a 1 me aparece 23:20 entonces no se que esta pasando y esto me urge.

espero poder contar con su valiosa ayuda y asi aporvecho pedireles a todo este mundo de programcion mil disculpas por las faltas que cometi sin querer, espero comprendan que estoy empezando en este aunque no es escusa, la verdad si me senti mal, gracias por enseñarme a respetar y a leer, aunque no fue mi intencion ser irrespetuoso pero asi me senti el dia de hoy.

"Luchar para aprender"