[*Caro*]

Hola noob, para obtener el día y la hora existen varias funciones, con Now como te han indicado obtienes la fecha y hora actual. Una forma podría ser utilizar las funciones DayOf y TimeOf o también puedes utilizar el procedimiento DecodeDateTime al cual le pasas una fecha y las variables donde quieres que te devuelva la fecha y hora desagregada.

Código Delphi [-]
 
 Showmessage('Dia: '+IntToStr(DayOf(Now))+' Hora:'+TimeToStr(TimeOf(Now)));
 
 //Donde Anio, Mes, Dia, Hora, minuto, segundo, milisegundo son variables de tipo Word
   DecodeDateTime(Now, Anio, Mes, Dia, Hora, minuto, segundo, milisegundo);

Saluditos