Проблема с перебором значений дат (число.месяц)

[Serval]

Задача вывести в таблицу(использую DBGrid - нужна именно она) данные где столбцы это (число.месяц) которые беруться из стандартного календаря дельфи (DateTimePicker).
Если бы это делалось в пределах одного месяца то проблем бы невозникало (там простой счетчик), но нужно и за несколько месяцев и тут проблема в переходе между месяцами и в том что количество дней неодинаковое, а если еще учесть високосные года...
Можно ли как-то сделать счетчик перебора всех дат из выбранного диапазона - без использования многоэтажного перебора с условиями...

[maladoy]

Есть такая функция, которая вас спасет - FormatDateTime... как говорил mihail4

[Serval]

все оказалось проще, спасибо lmikle.

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