Cette fonction permet de connaître la date du système.

Function Date:TDateTime;

procedure TForm1.Button1Click(Sender: TObject);
var date : Tdate;
begin
 Date := now; // récupere la date et heure du jour
  ShowMessage('Date du jour : '+DateToStr(Date));
  // Affiche la date du jour formaté ##/##/####
end;