这样为什么不能继承TButton的属性？

Question

这是抄你的代码做的：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  IMyComponent=interface
    ['{930EBBF7-B542-4F63-9BB7-BE0C464052DA}']
    function ReadFont(FilePath: String): Boolean;
    function WriteColor: Boolean;
  end;  TMyButton = Class(TButton, IMyComponent)
    protected
      function ReadFont(FilePath: String): Boolean;
      function WriteColor: Boolean;
  end;  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TMyButton }function TMyButton.ReadFont(FilePath: String): Boolean;
begin
  Result := True;
end;function TMyButton.WriteColor: Boolean;
begin
  Font.Name := '@MS Mincho';
  Font.Size := 16;
  Result := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  l: TMyButton;
begin
  l := TMyButton.Create(Self);
  l.Parent := Self;
  l.Caption := '你好';
  l.WriteColor;
end;