type
  TCalendar = class
  public
    const Months = 12;
  end;

var
  Calendar: TCalendar;
  Months: Integer;
begin
  Calendar := TCalendar.Create;
  Months := Calendar.Months;
  //months is 12

  //also accessible without an instance
  WriteLn('months is ', Months);
  WriteLn('months is ', TCalendar.Months);
end.