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.