[Robert01]

Podrías usar dos variables T1 al comienzo de los cálculos y T2 al final.

El tiempo empleado lo obtenés de la siguiente forma:

Código Delphi [-]
       Tiempo := FormatDateTime('"Tiempo empleado      :" hh:mm:ss.zzz', T2-T1);