TxdxGaugeDivisions = Class(TPersistent)
Private
  FCount  :Integer;
  FStroke :TStrokeBrush;
  Procedure SetCount(AValue: Integer);
  Procedure SetStroke(Const AValue :TStrokeBrush);
Public
  Constructor Create(Owner: TxdxGauge);
  Destructor  Destroy; Override;
Published
  Property Count  :Integer      Read FCount  Write SetCount;
  Property Stroke :TStrokeBrush Read FStroke Write SetStroke;
End;

Constructor TxdxGaugeDivisions.Create(Owner: TxdxGauge);
Begin
  FCount  := 5;
  FStroke := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Red);
End;

Destructor TxdxGaugeDivisions.Destroy;
begin
  FStroke.Free;
  Inherited;
End;

Procedure TxdxGaugeDivisions.SetCount(AValue: Integer);
Begin
  FCount := AValue;
  showmessage('2');
End;

Procedure TxdxGaugeDivisions.SetStroke(Const AValue :TStrokeBrush);
Begin
  FStroke := AValue;
  showmessage('1');
End;

Procedure TxdxGaugeDivisions.SetStroke(Const AValue :TStrokeBrush);
Begin
   FStroke := AValue;
   ...

Procedure TxdxGaugeDivisions.SetStroke(Const AValue :TStrokeBrush);
Begin
   FStroke.Assigne(AValue );
   ...