님 질문을 자세히 해지시면 좋겠네여..

그냥 1~12까지만 for문을 돌리겠다는건지.
아님..
1~12월까지 일자에 해당하는것만 돌리려고 하는건지..
이해가 안가네여..

================================================================
만약 1~12월 각월별 일자에 해당하는 것 만큼만 돌린다는건지.
거렇담, 문제가 달라지네여..
각 월의 마지막 일자를 가져와야 하거든여..
각월의 마지막일을 가져오는 루틴은 이거에여 간단해여..
예를 보면,
     2월 마지막일자는?   3월 1일 - 1 하면 됨..

ldt_date변수(선언 Var ldt_date: Date;)
ldt_date := StrToDate('2001-03-01');
ldt_date := ldt_date - 1;   // 여기가 2월 마지막일자가 됨..
ShowMessage(DateToStr(ldt_date))하면,
2001년 2월 마지막 일자가 나옴..


실제 사용은
procedure loop_test()
Var ldt_date: Date;
      ll_lastdat: Int;
begin    
   for i:=1 to 12 do
   begin
        If (i = 12) Then
             ldt_date := StrToDate('2002-01-01')
        else
             ldt_date := StrToDate('2001-' + IntToStr(i+1) + '-01');
        
        //ldt_date는 위에서 설명했음  
        ll_lastday := Copy(DateToStr(ldt_Date), 9, 2);

        For j:=1 to ll_lastday do
        begin
               //각일마다 처리할 루틴을 여기에
        end;

        //각월마다 처리할 루틴을 여기에
   end;
end;
================================================================


================================================================
그냥  1~12까지 For문을 쓴다면,
For j:=1 to 12 do
begin
      하고 싶은 루틴을 여기에..
      (물론 루틴이 1줄이면, begin end 불필요!!)
end;
================================================================

for i:=1 to 12 do
  for j:=1 to 31 do