[Durbed]

Solo se me ocurre algo asi

Código Delphi [-]
var
 mes : String;
For i:=1 to 12 do
begin
 mes := IntToStr(i);
 If length(mes) = 1 Then
  mes := '0' + mes;
end;