type

TTypeProp = (tInteger,tString,tData);

TBasisType = class(TPersistent);

 

TIntegerProp = class(TBasisType)

  published

    property ValueInt: integer read fValueInt write fValueInt;

end;

 

TStringProp = class(TBasisType)

  published

    property ValueStr: string read fValueStr write fValueStr;

end;

 

TMyComponent = class(TComponent)

  published

    property TypeProp: TTypeProp reaf fTypeProp write SetTypeProp;

    property Prop: TBasisType read fProp write SetProp;

end;

 

procedure TMyComponent.SetTypeProp(Value: TTypeProp);

begin

  if fTypeProp = Value then Exit;

  fProp.Free;

  fTypeProp := Value;

  case Value of

    tInteger: fProp := TIntegerProp.Create;

    tString: fProp := TStringProp.Create;

  end;

end;

 

procedure TMyComponent.SetProp;

begin

  // пусто

end;