阅读受保护的属性

Question

我有一个派生自Twincontrol的课程。我想读取控件字体，标题和宽度，但所有这些属性都受到保护，所以我无法直接读取它们。要阅读这些属性，我创建了一个类，如下所示

  TTest = class(TWinControl)
  public
    procedure test(A: TWinControl);
  end;

procedure TTest.test(A: TWinControl);
var
 width: integer;
 text: string;
begin
  width := A.width;  // cannot access
  text := a.caption;  //cannot access
end;

调用此函数

ABC := TTest.create(nil);
Abc.Test(twincontrol(Tbutton));

我如何访问这些属性？ 我是否必须从其他基类派生类？ 我想尽可能在​​最顶层阅读这些属性。