Código Delphi [-]edit1.Text:= DateToStr(DateTimePicker1.Date);
edit1.Text:= DateToStr(DateTimePicker1.Date);