program EnumerationTypes;

type
  MonthType = (January, February, March, April,
               May, June, July, August, September,
               October, November, December);
          
var
  Month : MonthType;            

procedure OnDocumentComplete(URL : string);
begin         
end;
                         
begin   
   Month := January;            
end.