HELP!!!!! COMO FAÇO PARA DIMINUIR UM HORÁRIO DO OUTRO

NÃO CONSIGO DIMINUIR UM VALOR DO OUTRO
NO EVENTO [b:7f499b8e11]ONEXIT[/b:7f499b8e11] DO 2° HORÁRIO

Var
d1: tdatetime;
d2: tdatetime;
d3: tdatetime;
Begin
//Contador de Escala//
d1:= StrToDateTime(MskEntrada.text);
d2:= StrToDateTime(MskEntrada.text);
d3:= d2-d1;
MskExpediente.text:= formatdatetime(´__:__´,d3); //resultado
end;