[[Chris]]

Además puedes utilizar las funciones DayOf, MonthOf, YearOf.

Código Delphi [-]
// EJEMPLO: asignar el día
Label1.Caption := IntToStr(DayOf(Now));