dephi 请问如何取出两个日期之间的所有日期

Question

输入两个日期，把这两个日期之间的所有日期取出来   
  如果是：2008-11-01至2008-11-30（同为一个月）   
  则为：2008-11-01，2008-11-02，2008-11-032008-11-30  
  ----   
  如果是：2008-12-10至2009-01-02（不同的月，有31号的月份）   
  则为：2008-12-10，2008-12-30，2008-12-31，2009-01-01，2009-01-02   
  ----
之间的日期一定要正确  谢谢！ 

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  d1,d2: TDateTime;
  k: integer;
begin
  d1 := Now;
  d2 := IncDay(d1,2);
  k := 0;
  while(d1 < d2) do begin
    showmessage(DateToStr(d1));
    d1 := IncDay(d1, 1);
  end;
end;

Answer 2

为什么提示：undeclared identifier incDay啊

Answer 3

这种情况用delphi帮助
UnitDateUtils

Answer 4

我对于pascal的语法,dephi的应用还不熟悉,只是因为工作才刚接触了两天,所以希望各位尽量帮忙，最好能给个可执行的例子，不胜感激

Answer 5

那个提示有错误啊，主要是我现在dephi一窍不通，各位拜托了