Создание свойств-множеств в компоненте

[DrAndriy]

Добрый день!

Создаю свойства-множества в моем компоненте по такой схеме:

unit MyComponent;

interface

uses
  SysUtils, Types, Classes;

type
TMyEnumType = (eFirst, eSecond, eThird); 
TMySetTypeFirst = (poFirst1, poSecond1, poThird1); 
TMySetTypeSecond = (poFirst2, poSecond2, poThird2);
TMySetTypeThird = (poFirst3, poSecond3, poThird3);

TMySetType = set of TMySetTypeFirst; // TMySetTypeSecond? TMySetTypeThird?

type
TMyComponent = class(TComponent) 
private
{ Private declarations }
FMyEnum: TMyEnumType;
FMyOptions: TMySetType; 
protected
{ Protected declarations } 
public
{ Public declarations } 
published
{ Published declarations }
property MyEnumProp: TMyEnumType read FMyEnum write FMyEnum;
property MyOptions: TMySetType read FMyOptions write FMyOptions; 
end;

procedure Register;

implementation

procedure Register;

begin
RegisterComponents('Samples', [TMyComponent])
end;

end.

С TMySetType все понятно, создается выбор из множества первого типа (TMySetTypeFirst) от TMyEnumType = eFirst, а как динамично подключать (или переключать) к TMySetType множества TMySetTypeSecond (если TMyEnumType = eSecond) и TMySetTypeThird (если TMyEnumType = eThird), чтобы MyOptions показывали нужные мне типы множеств (TMySetTypeFirst или TMySetTypeSecond или TMySetTypeThird)?

Спасибо