[lmikle]

Дать им разняе имена или просто вынести определение типа из класса. Тебе же надо переменные внутри класса, а не типы, наверное.

Код:

type
  TSubclassAType = (ValueOne, ValueTwo, ValueThree);

  cA = class
  strict private
    FSubclassAType : TSubclassAType;
  end;

  cB = class
  strict private
    FSubclassAType : TSubclassAType;
  end;