Цикл for по датам

[spirit-ua]

Всем!

Ничего более умного не сообразил
Разъясните насколько "правильный" код и где могут вылезти грабли

    sRichEdit1.Clear;
    date1 := '01.10.2017';
    date2 := '31.12.2017';
    for i:=1 to 365 do begin
      date5 := formatdatetime('dd.mm.yyyy',IncDay(StrToDate(date1),1));
      date1 := date5;
      sRichEdit1.Lines.Add(date5);
      if date5 = date2 then break;
    end;

[Аватар]

  xDate:=EncodeDate(2017,1,1);
  for i:=0 to DaysInAYear(xDate)-1 do begin
    xDate1:=xDate+i;
  end;