[dec]

Hola,

Código Delphi [-]
 var
   dFecha: TDate;
   sFecha: string;
 begin
   dFecha := DateTimePicker1.Date;
   sFecha := DateTimeToStr(DateTimePicker1.Date);
   {...}