[__cadetill]

a ver asi

 
var DifH, DifM, DifS, DifMs : Word;
begin
   DecodeTime(EncodeTime(v3, v4, 0, 0) - 
             EncodeTime(v1, v2, 0, 0), DifH, DifM, DifS, DifMs);
end;

De todas maneras, ten presente el que pueda haber un cambio de dia (o sea, que se hayan olvidado alguna fichada)

Espero te sirva