Problem mit StringGrid-Schleife

[Fussel9]

Hi hab lange nachgedacht.. sehs aber einfach nicht:

Delphi-Quellcode:

for i := 1 to DaysInMonth(date) do
begin
  if count = 7 then
    begin
      Kalender.Cells[count,row]:=IntToStr(i);
      inc(row);
      count:=0;
    end
  else
    begin
      Kalender.Cells[count,row]:=IntToStr(i);
      inc(count);
    end;
end;

Will mit dieser Schleife ein String Grid befüllen allerding sieht das resultat wie folgt aus:
1 2 3 4 5 6 7
9 10 11 12 13 14 15
17 18 19 20 21 22 23
25 26 27 28 29 30 31

Er überspringt also die 8, 16 und 24

sieht jemand wieso?