단순히 님이 말씀하신 6자리를 필요로 한다면,
if문을 사용하여 '0' 문자를 추가해 주심 되는것 같은데..

그런데, 님이 DATE를 가져온다는 것은 델파이에서 DATE함수를 말하는거져?
아님? DB에서 DATE를 가져온다는뜻?

님께서 마지막 줄에 쓰신 내용을 보면 단순히 6자리를 원하시는것 같은데.
그것에 대한 내용만 보여 드리져?
if문을 쓰면 되는뎅..

procedure test()
Var  
     ls_date: String;
begin
      for i:=1 to 12 do
      begin
             ls_Date := FormatDateTime('YYYY', date);
             if i < 10 Then
                  ls_Date := ls_Date + '0' + IntToStr(i)
             else
                  ls_Date := ls_Date + IntToStr(i);

             //하고 싶은 루틴..
      end;    
end;

님이 단순히 6자리만 원하시는 것 같아서..
위와 같이 했음다..
물론, format함수로 자리수를 지정해도 되겠지만여..  ^^;
보기는 쉽지만 몇줄 코딩이 더 생기져...
format 함수의 인수를 2d로 하시면, 될 것 같네여..

포맷함수를 쓰면 될 것 같은데요..
  Label1.Caption := Format('%.2d',[1]);

이렇게 하면
Label1에
01 이라고 쓰입니다