var
  dtpDate: TDateTimePicker;
begin
  dtpDate.Format := 'yyyy-MM-dd';
  ShowMessage('时间:' + FormatDateTime('yyyy-MM-dd', dtpDate.Date));
  //'yyyy-MM-dd'是时间显示的格式，更多格式请参照别的资料
end;

dtpDate.Format := 'yyyy-MM-dd';

这里Format属性中字符串所代码的意义如下：

y：一位数的年份（2001 显示为“1”）；yy：年份的最后两位数（2001 显示为“01”）；yyyy：完整的年份（2001 显示为“2001”）。

M：一位数或两位数月份值；MM：两位数月份值。一位数数值前面加一个零；MMM：三个字符的月份缩写；MMMM：完整的月份名。

d：一位数或两位数的天数；dd：两位数的天数，一位数天数的前面加一个零。

ddd：三个字符的星期几缩写；dddd：完整的星期几名称。

h：12 小时格式的一位数或两位数小时数；hh：12 小时格式的两位数小时数，一位数数值前面加一个零；H：24 小时格式的一位数或两位数小时数；HH：24 小时格式的两位数小时数，一位数数值前面加一个零。

m：一位数或两位数分钟值；mm：两位数分钟值，一位数数值前面加一个零。

s：一位数或两位数秒数；ss：两位数秒数，一位数数值前面加一个零。