Puedes utilizar TDateTime:
//definimos variables:
TDateTime inihora;
TDateTime actual;//calcula inihora cuando quieras empezar a contar de esta forma:
inihora = inihora.CurrentDateTime();
//calcula actual en un TTimer cada segundo para ver el tiempo transcurrido asi:
actual = actual.CurrentDateTime() - inihora;
Label1->Caption=actual;
Espero que te ayude esto. Un saludo.