Delphi. Заполнить StringGrid днями месяца и недель из DateTimePicker

[Kompressor]

Пишу процедуру, которая берет месяц из DateTimePicker и заполняет первые две строчки StringGrid. Первая строчка заполняется днями месяца, вторая - недель. Запутался с циклом заполнения дней недель. Может кто хоть словами скажет, как правильно это сделать ? Вот что есть на сейчас :

procedure TForm1.NewSG;

var
 days:integer;//кол-во дней в месяце
 WD: integer;//день недели первого дня месяца
 i,j:integer;//
 dw: string;// день недели строковая
begin
//---Заполняем дни месяца---
 days:=DaysInMonth(DTP1.date);
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yyyy';
 WD:=DayOfTheWeek(StrToDate(FormatDateTime('01.mm.yyyy',DTP1.date)));
 for i:=0 to days-1 do //заполняем дни месяца
 StringGrid1.Cells[i+1,0]:=IntToStr(i+1);
//---Теперь дни недель-----
  For WD:=1 to 7 do begin
 case WD of
     1:dw:='Пн';
     2:dw:='Вт';
     3:dw:='Ср';
     4:dw:='Чт';
     5:dw:='Пт';
     6:dw:='Сб';
     7:dw:='Вс';

[Аватар]

 for i:=0 to days-1 do begin
   StringGrid1.Cells[i+1,0]:=IntToStr(i+1);
   case WD of
   1:dw:='Вс';
   2:dw:='Пн';
   3:dw:='Вт';
   4:dw:='Ср';
   5:dw:='Чт';
   6:dw:='Пт';
   7:dw:='Сб';
   end;
   StringGrid1.Cells[i+1,1]:=dw;
   Inc(WD);
   if WD=8 then WD:=1;
 end;

[Kompressor]

ругаетсяна Inc(WD);
:[Error] Unit1.pas(75): Assignment to FOR-Loop variable 'WD'

[Аватар]

Ну код свой покажите, напутали явно

[Alar]

Delphi

!!!

[Kompressor]

to Аватар : спс тебе огромое, все рабтает в этом виде :

procedure TForm1.NewSG;

var
 days:integer;//наше долгожданное кол-во дней в месяце
 WD: integer;//еще более проблемный день недели
 i,j:integer;//
 dw: string;// день недели строковая
begin
 days:=DaysInMonth(DTP1.date);
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yyyy';
 WD:=DayOfTheWeek(StrToDate(FormatDateTime('01.mm.yyyy',DTP1.date)));
 for i:=0 to days-1 do //заполняем дни месяца
 StringGrid1.Cells[i+1,0]:=IntToStr(i+1);
 //-------------------------------------------------
  for i:=0 to days-1 do begin
   StringGrid1.Cells[i+1,1]:=IntToStr(i+1);

 case WD of
     1:dw:='Пн';
     2:dw:='Вт';
     3:dw:='Ср';
     4:dw:='Чт';
     5:dw:='Пт';
     6:dw:='Сб';
     7:dw:='Вс';

end;
 StringGrid1.Cells[i+1,1]:=dw;
   Inc(WD);
   if WD=8 then WD:=1;
   end;
end;//begin