장성호님께서 도움을 주셔서..
년도 월별 주단위 일자는 되었는데요;;
이제 일자별로 데이터를 그리드에 뿌려주는데
문제가 좀 생겨서여;;

<!--CodeS-->
begin

    dt := StrToDate(IntToStr(Edt_Year.Tag) + '-' + IntToStr(Edt_Month.Tag) + '-01');
    dt := dt + (Edt_Week.Tag - 1) * 7;
    dt := dt - DayOfTheWeek(dt) - 1;

    for idx := 1 to 7 do
    begin

      dt := IncDay(dt, 1);
      DateTimeToString(sDD, 'dd', dt);
      grdWeek.Cells[idx + 1, 1] := sDD;

      for i := 0 to HRecord_cnt - 1 do
      begin

        
        grdWeek.Cells[2 + i, 2] := HostData[i, 5];
        grdWeek.Cells[2 + i, 3] := HostData[i, 7];
        grdWeek.Cells[2 + i, 4] := HostData[i, 8];
        grdWeek.Cells[2 + i, 5] := HostData[i, 9];

        grdWeek.Cells[10, i] := HostData[i, 0];
        grdWeek.Cells[11, i] := HostData[i, 1];
        grdWeek.Cells[12, i] := HostData[i, 2];
        grdWeek.Cells[13, i] := HostData[i, 3];
        grdWeek.Cells[14, i] := HostData[i, 4];
        grdWeek.Cells[15, i] := HostData[i, 5];
        grdWeek.Cells[16, i] := HostData[i, 6];
        grdWeek.Cells[17, i] := HostData[i, 7];
        grdWeek.Cells[18, i] := HostData[i, 8];
        grdWeek.Cells[19, i] := HostData[i, 9];


      end;
    end;
  end;
<!--CodeE-->

이렇게 했더니 그리드에 옆으로 쭉 데이터가 뿌려지더라 구여

어떻게 하면 일자에 맞는 데이터가 들어가게 하는지;;;

^^