Delphi - Obtener fecha y hora

Quisiera saber como puedo obtener la fecha y la hora y como manejarlo.
Lo que quiero hacer es obtener la hora en dos instantes de tiempo distintos para calcular el tiempo transcurrido entre ambos.
Muchas gracias.

Puedes usar las siguientes funciones declaradas en la unit Sysutils

DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

si el parametro Date:TDatetime es la resta del Date actual menos el Date anterior y el parametro Time:TDatetime es la resta del Time actual menos el Time anterior .Tendras la diferencia.
Luego puedes formatearlo a cadena con la funcion FormatDatetime.

Espero te funcione.
Mirate en la ayuda : Date/Time routines