Date

Retorna a data atual do sistema. No exemplo, a descrição do componente Label1 assumirá a data atual do sistema assim que o Button1 receber um clique.

Exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption := 'Hoje é: '+ DateToStr(Date);
end;