Pascal ha due funzioni di sistema che ritornano la data corrente,

Date che ritorna un TDate
Now che ritorna un TDateTime

e una funzione per convertirle in stringa

DateToStr

Provale
ciao