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

procedure TForm6.DBComboBox2Change(Sender: TObject);
var i:double;
var Datum1:TDateTime;
var Datum2: TDateTime;
begin
Datum1 := StrToDate (DBMemo2.Text);
Datum2 := StrToDate (DBMemo3.Text);
i :=  1;
repeat canvas.TextOut(i);
i := datum1 + i until i = Datum2;
end;                    

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

procedure ListDaysBetween(FirstDate, SecondDate: TDate; const sList: TStrings); 
var CurrDate: TDate; 
begin 
  sList.BeginUpdate; 
  try 
    sList.Clear; //kann auch weggelassen werden, dann bleiben alte Einträge erhalten => ist klar!
    CurrDate := trunc(FirstDate); 
    while CurrDate <= trunc(SecondDate) do 
      begin 
        sList.Add(DateToStr(CurrDate));  //\\ist das hier der punkt?! und wenn es eine listbox oder combolistbox ist?
        CurrDate := CurrDate + 1; //unter Delphi 5 gibt es DateUtils noch nicht 
      end; 
  finally 
    sList.EndUpdate; 
  end; 
end;                    

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

//dieser Teil muss in den interface-Teil noch vor der Deklaration des Formulars
type
  TComboBox = class(StdCtrls.TComboBox)
  private
    FStartDate,
    FEndDate: TDate;
    procedure ListDaysBetween(FirstDate, SecondDate: TDate);
    procedure SetStartdate(const Value: TDate);
    procedure SetEndDate(const Value: TDate);
  public
    constructor Create(AOwner: TComponent);override;
    property StartDate: TDate read FStartDate write SetStartdate;
    property EndDate: TDate read FEndDate write SetEndDate;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:

//dieser Teil gehört nach implementation
constructor TComboBox.Create(AOwner: TComponent);
begin
  inherited;
  FStartDate := Date;
  FEndDate := Date + 7;
  ListDaysBetween(FStartDate,FEndDate);
end;

procedure TComboBox.ListDaysBetween(FirstDate, SecondDate: TDate);
var CurrDate: TDate;
begin 
  Items.BeginUpdate;
  try 
    Items.Clear;
    CurrDate := trunc(FirstDate); 
    while CurrDate <= trunc(SecondDate) do 
      begin 
        Items.Add(DateToStr(CurrDate));
        CurrDate := CurrDate + 1;
      end;
  finally
    Items.EndUpdate;
  end;
end;

procedure TComboBox.SetEndDate(const Value: TDate);
begin
  FEndDate := Value;
  ListDaysBetween(FStartDate,FEndDate);
  if Items.Count > 0 then
    ItemIndex := 0;
end;

procedure TComboBox.SetStartdate(const Value: TDate);
begin
  FStartDate := Value;
  ListDaysBetween(FStartDate,FEndDate);
  if Items.Count > 0 then
    ItemIndex := 0;
end;