1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

uses dateutils

var
  Form1: TForm1;
  Startdatum, Endedatum : TDateTime;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Startdatum:= StrToDate(Dstart.Text);
  Endedatum := StrToDate(Dende.Text);
  while Start > Ende do begin
    ListBox1.Items.Add(DateToStr(Startdatum));
    IncDay(Startdatum);
  end;
end;
end.					

1:

  while Startdatum < Endedatum					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  StartDate, EndDate: Cardinal;

procedure ShowDates;
begin
  StartDate := Trunc(StrToDate(MaskEdit1.Text)) (*+1*);
  EndDate := Trunc(StrToDate(MaskEdit2.Text)) (*-1*);
  while StartDate <= EndDate do begin
    ListBox1.Items.Add(DateToStr(StartDate));
    Inc(StartDate);
  end;
end;