[M.A.D.M.A.N.]

А зачем?
Я бы сделал так:

Код:

  TЕдаType = (етЯгода, етОвощ, етГриб, етОрех...)
  ТЕда = class
  private
    FType: TЕдаType;
  public
    proerty ТипЕды: TЕдаType read FType;
    ...
  end;

Ну а всякие там уникальные свойства в классах-наследниках (типа там плотность, форма и т.д.).