[Pascal] Data e ora del sistema

[king64]

Sono contenute in SysUtils

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