program NewScript;
var
DateDuJour: TDateTime;
begin
DateDuJour := Date();
ShowMessage(DateToStr(DateDuJour));
end.
À voir après dans quel format il te la convertit - chez moi c'est du AAA-MM-JJ mais je suppose que ça dépend du système.
Il faut voir ce que tu veux en faire ensuite, il existe des fonctions pour manipuler les dates.