unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TBase = class
    const Svalue='text';
    class function TakeName:string; virtual;
  end;


  TBook = class(TBase)
    const Svalue='book';
  //  class function TakeName:string;  override;
  end;

  TDog = class(TBase)
    const Svalue='dog';
 //   class function TakeName:string;   override;
  end;


  well = class of TBase ; //


var
  Form1: TForm1;
  AsWell:well;

implementation

{$R *.dfm}

 class function TBase.TakeName:string;    
        begin
            Result:=  SValue; 
        end;


 {class function TBook.TakeName:string;
        begin
            Result:=Svalue;
        end;

 class function TDog.TakeName:string;
        begin
            Result:=Svalue;
        end;  }

procedure TForm1.Button1Click(Sender: TObject);
begin
    AsWell :=TBook ;
    form1.Caption:=aswell. TakeName;
    //form1.Caption:=aswell. Svalue;  - так тоже не работает =(
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    AsWell :=TDog ;
    form1.Caption:=AsWell. TakeName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    AsWell := TBase ;
    form1.Caption:=AsWell. TakeName;
end;

end.

 
ObjectTypes := TTypesList.Create ;//TTypesList это TList

      {$ifdef Tree}      objectTypes.Add(TTree);       {$endif}
      {$ifdef Horizon} objectTypes.Add(THorizon);  {$endif} //и ещё овер 9000 таких классов с одинаковым родителем.

THorizon = class(TSuperObject)                      //класс объекта горизонта

//...

        const
          ObjectName = 3;// 'Горизонт';
          PathName   = 4;
          StyleName  = 5;

//...


       ///<summary> Возвращает название типа объекта </summary>
       class function TakeInfoName          :string;  override;
       ///<summary> Возвращает группу типа объекта </summary>
       class function TakeInfoGroup          :string;  override;
end;

//...

class function THorizon.TakeInfoName          :string;
       begin
           result:=CurrentLocalisation[ObjectName];
       end;

class function THorizon.TakeInfoGroup          :string;
       begin
           result:=CurrentLocalisation[PathName];
       end;