GetLocalTime en FreePascal

inicio:=Now;

{HACES LO QUE SEA QUE QUIERAS CRONOMETRAR}

final:=Now;

calculaTiempo(inicio, final);



PROCEDURE calculaTiempo(inicio, final:TDateTime);
	VAR
		horas, minutos, segundos, msegundos:word;
	
BEGIN
	DecodeTime(final-inicio, horas, minutos, segundos, msegundos);

	write('Tiempo empleado: ');

	IF daysbetween(final, inicio) > 0 THEN
		write(daysbetween(final, inicio), 'd ');
		
	IF horas > 0 THEN
		write(horas, 'h ');	
		
	IF minutos > 0 THEN
		write(minutos, 'm ');
		
	IF segundos > 0 THEN
		write(segundos, 's ');
			
	IF msegundos > 0 THEN
		write(msegundos, 'ms ');
			
	writeln;
END;

Necesitas añadir en USES DateUtils y no me acuerdo si en FreePascal tienes que añadir la opción de compilación -Sd (para que sea compatible con Delphi).