procedure TForm1.Button1Click(Sender: TObject);
var
  aDate1, aDate2: TDate;
  aDateCount: Double;
  I: Integer;
begin
  try
    aDate1 := StrToDate(Edit1.Text);
    aDate2 := StrToDate(Edit2.Text);
  except
    raise Exception.Create('輸入日期錯誤!');
  end;
  aDateCount := aDate2-aDate1-1;
  I := 0;
  while I < aDateCount do
  begin
    Inc(I);
    ListBox1.Items.Add(DateToStr(aDate1 I));
  end;
end;