Type
  TBase = class (TObject)
    constructor Create(); override; //В реализации пишем showmessage('TBase')
  end;
  TBaseClass = class of TBase;

  TDerived = class (TObject)
    constructor Create(); override; //В реализации пишем showmessage('TDerived')
  end;
  TDerivedClass = class of TDerived;

Procedure TForm1.Button1Click(Sender:TComponent);
Var
  ClassRef: TBaseClass; //ссылка на класс (class reference).
  //Фактически, это просто ссылка на экземпляр метакласса TBaseClass (или его потомка)
begin
  ClassRef:=TDerivedClass;
  with ClassRef.Create() //вызываем конструктор
    do Free; //Почистим за собой для порядка
end;

TBaseClass = class (TClass) //наследуются все методы предка
  constructor Create() ; override; //создает экземпляр TBase (т.к. принадлежит TBaseClass)
end;

TDerivedClass = class (TBaseClass)
  constructor Create() ; override; //создает экземпляр TDerived
end;

SM>Брр.. Невнимательно прочитал вопрос. Все гораздо хуже, оказывается

// 1.1 определение КЛАССА (ключевое слово CLASS!!!) в ДЕЛЬФИ
type
  TList = class(TObject)
  ...
  end;
// 1.2 использование класса в дельфи
var
  vList: TList;
  ...
begin
  ...
  vList=TList.Create;
  ...
end

// 2.1 определение ОБЬЕКТА (ключевое слово OBJECT!!!) в ДЕЛЬФИ
type
  TListObj = object
  ...
    function GetVal: integer;
  end;
// 2.2 использование ОБЬЕКТА в дельфи
var
  vList: TListObj;
begin
  ...
  writeln(vList.GetVal);
  ...
end;

  Свойства                     CLASS         OBJECT
0. "Поддержка" в компиляторе    ВСТРОЕНА      ДЛЯ СОВМЕСТИМОСТИ
1. Общий предок                 ЕСТЬ          НЕТ
2. Published видимость          ЕСТЬ          НЕТ
3. Конструктор и деструктор     ЕСТЬ          НЕТ
по умолчанию.
4. Переменная данного вида      ССЫЛКА        ВЕСЬ ОБЬЕКТ
5. Создание объекта данного     Явный вызов   Использование NEW
вида.                           конструктора
6. Уничтожение объекта          Метод         Использование DISPOSE
данного вида                    TObject.Free
                                (ну и еще 
                                 немного
                                 способов)
7. Взятие и разыменование       ЗАПРЕЩЕНО     ТОЛЬКО ТЕМ И ЖИВЕМ
указателя на обьект данного                   
вида
8. Совместимость с              ЕСТЬ          НЕТ
интерфейсами

SM>>Брр.. Невнимательно прочитал вопрос. Все гораздо хуже, оказывается

VVP>     Свойства                     CLASS         OBJECT
VVP>7. Взятие и разыменование       ЗАПРЕЩЕНО     ТОЛЬКО ТЕМ И ЖИВЕМ
VVP>указателя на обьект данного                   
VVP>вида

var
  p:pointer; //С таким же успехом может быть и ^TObject;
  o:TObject;
begin
  o:=TObject.Create();
  p:=o; //или p:=@o, что то же самое
  o:=TObject(p);
end.

SM>>var
SM>>  p:pointer; //С таким же успехом может быть и ^TObject;
VVP>Никакого успеха быть не может! Компилятор не даст прострелить тебе ногу!

См. далее

SM>>  o:TObject;
SM>>begin
SM>>  o:=TObject.Create();
SM>>  p:=o; //или p:=@o, что то же самое
VVP>Да, что ты говоришь про "тоже самое"! Адрес от адреса <> адресу!

1) В Object Pascal уже давно существует неявная разадресация, и не только применительно к объектам
2) "То же самое" означает, что в обоих случаях значение p будет одинаково

SM>>  o:=TObject(p);
VVP>Грязное приведение типа! Чему ты людей учишь???

Необходимая демонстрация возможности обратного преобразования. Но если использовать
var o:^TObject
то приведение не нужно.

SM>>end.
SM>>

var
  p:^TObject;
  o:TObject;
begin
  o:=TObject.Create();
  p:=@o;
  o:=p^;
end.