определение константы внутри класса(delphi)

[lowercase]

здраствуйте. пытаюсь опеределить парочку констант внутри класса(делфи). но получаю ошибки. после визуал студии и си шарпа, поставил старый добрый делфи 7. захотелось создать класс в котором будут только константы. для удобства так сказать... вот жму, жму кнопку компилить, а ничео не компилируется. да и вродебы делфы знаю.. да и что тут константы определить внутри класса, в отдельном модуле. елементарно же.
вот такой модуль:

unit Unit1;

interface
  type class1 = class
    const x = 39; 
    const y = x + 4; 
  end; 

implementation

end.

жму компилить, получаю такой букет недовольствия со стороны делфи:
Build
[Error] Unit1.pas(5): 'END' expected but 'CONST' found
[Error] Unit1.pas(7): 'IMPLEMENTATION' expected but ';' found
[Error] Unit1.pas(9): '.' expected but 'IMPLEMENTATION' found
[Fatal Error] lc.dpr(8): Could not compile used unit 'Unit1.pas'

[lowercase]

может в нутри класса нельзя константы определять? или ключевое слово надо какоето?

[Hacker19_90]

офф топ! попробывал не катит!

[Serge_Bliznykov]

по-моему, нельзя внутри класса объявлять константы.
Да и смысла я в этом вообще никакого не вижу.
если бы они и были возможно, то, чтобы получить доступ к ним, Вам же нужно будет описать объект этого класса, потом его создать - и только после этого будет доступ к константам.
ну, типа такого:

unit Unit2;

interface
  type class1 = class
  constructor Init;
  public
    x : integer;
    y : integer;
  end;

var MyObject : class1;

implementation

{ class1 }

constructor class1.Init;
begin
  x := 39;
  y := x + 4;
end;

end.

использование:

uses Unit2;
....
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyObject := Class1.Init;
  ShowMessage('x='+IntToStr(MyObject.X));
  FreeAndNil(MyObject);
end;
  
end;