Класс - это некая модель предмета реального мира. Вот и определи, какие свойства духов тебе важны в рамках твоей модели (!) и сделай класс с этими свойствами. Например, духи с запахом: type TSmell=(smOdorLess, smSweet, smBitter, smNeutral, smOther); TFragrance=class private FSmell:TSmell; public property Smell: TSmell read FSmell write FSmell; end;