[[AzidRain]]

coloca un Uses DateUtils; al inicio de tu unidad y
pones la propiedad date a la fecha actual

Código Delphi [-]
TDatetimePicker.Date := Today; // Sustituir TDateTimePicker por el nombre de tu variable
//o
TDatetimePicker.Date := Now;