var
  minDate, maxDate: TDateTime; 

  ......

  dateseparator := '-'; // 日期分隔符
  shortdateformat := 'yy-mm-dd'; // 短日期格式
  longdateformat := 'yyyy-mm-dd'; // 长日期格式
  application.UpdateFormatSettings := false;

  ......

  if not TryStrToDate(edtDate1.Text, minDate) then
  begin
    Showmessage('日期1不是日期字符串，或其格式不是“yyyy-mm-dd”！');
    exit;
  end;

  if not TryStrToDate(edtDate2.Text, maxDate) then
  begin
    Showmessage('日期2不是日期字符串，或其格式不是“yyyy-mm-dd”！');
    exit;
  end;

  ......