[fpc-pascal] class constants

[Jonathan Benedicto]

Hello,

Does FPC support class constants, and if it doesn't, are there any plans to 
add this support?

Example:
type
  TMyClass = class
    begin
      private
        const MyConst = '123';

    end;

Jon