Puedes extraer los valores de una fecha y pasarlos a una variable y despues manejas la variable como quieras
Código Delphi
[-]
var
Dia, Mes, Año: Word;
Hoy: TDateTime;
begin
Hoy := Now;
DecodeDate(Hoy, Año, Mes, Dia);
end;
Si miras en la ayuda de delphi tambien esta muy bien explicado, busca la funcion DecodeDate().