Sono contenute in SysUtils
codice:
var
  today : TDateTime;
begin
  today := Now;
  ShowMessage('Oggi è '+DateToStr(today));
  ShowMessage('Sono le ore '+TimeToStr(today));
end;