Investigate and expand Dark Side of the class helpers about class-helpers HOT 1 CLOSED

type
  TControlHelper = class helper for TControl
    procedure ExpandWidth;
  end;

  TButtonHelper = class helper for TButton
    procedure SetRandomCaption;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.ExpandWidth;
  Button1.SetRandomCaption;
end;

{ TControlHelper }

procedure TControlHelper.ExpandWidth;
begin
  Self.Width := Self.Parent.ClientWidth - 2*Self.Left;
end;

{ TButtonHelper }

procedure TButtonHelper.SetRandomCaption;
begin
  Self.Caption := Format('Caption %d',[1+random(999)]);
end;