[lmikle]

Да, можно. Просто прибавляй к дате 1:

Код:

var
  I : Integer;
  D : TDateTime;
begin
  D := DateTimePicker1.Date;
  For I := 1 To 60 Do // 60 дней
    Begin
      ShowMessage(DateToStr(D));
      D := D + 1;
    End;