TMyComponent = Class(TStyledControl)
 Private
   FEffect :TEffect;
   Procedure SetEffect(AEffect :TEffect);
 Public
 Published
   Property Effect :TEffect Read FEffect Write SetEffect;
 End;
  
Procedure TxdfGauge.SetEffect(AEffect :TEffect);
Begin
  FEffect := AEffect;  
End;

TMyComponentEffectEdit = Class(TClassProperty)
 Function  GetAttributes: TPropertyAttributes; Override;
 Procedure GetValues(Proc: TGetStrProc);       Override;
End;

Function TMyComponentEffectEdit.GetAttributes: TPropertyAttributes;
Begin
  Result := Inherited GetAttributes;
  Result := Result + [paValueList];
End;

Procedure TMyComponentEffectEdit.GetValues(Proc: TGetStrProc);
Begin
  Proc('MyEffect1');
  Proc('MyEffect2');  
End;

Procedure Register;
Begin
  RegisterComponents ('Samples', [TMyComponent]);
  RegisterPropertyEditor(TypeInfo(TEffect), TMyComponent, 'Effect',  TMyComponentEffectEdit);
End;