组件开发添加属性，不能通过编译缺少“=”，请问怎么修改

Question

unit Qnetlabel;interfaceuses
  SysUtils, Classes, QControls, QStdCtrls;type
  tnetlabel = class(TLabel);
  THyperLink = (hlHTTP,hlMail,hlTelnet,hlGopher,hlNews,hlFTP);
  private
    { Private declarations }
     FHyperLinkKind:THyperLink;
     FHyperLink:string ;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property HyperLinkKind:THyperLink   read   FHyperLinkKind   write   FHyperLinkKind   default   hlMail;
    property HyperLink:string   read   FHyperLink   write   FHyperLink;
    { Published declarations }
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Dotsoft', [tnetlabel]);
end;end.
 源代码如上，属性不能通过编译，缺少“=”，请问怎么修改啊

Answer 1

  tnetlabel = class(TLabel);//注意这里不能有这个分号 
  THyperLink = (hlHTTP,hlMail,hlTelnet,hlGopher,hlNews,hlFTP); 
  private 
    { Private declarations } 
    FHyperLinkKind:THyperLink; 
    FHyperLink:string ; 
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
  published 
    property HyperLinkKind:THyperLink  read  FHyperLinkKind  write  FHyperLinkKind  default  hlMail; 
    property HyperLink:string  read  FHyperLink  write  FHyperLink; 
    { Published declarations } 
  end; 改为
  THyperLink = (hlHTTP,hlMail,hlTelnet,hlGopher,hlNews,hlFTP); 
  tnetlabel = class(TLabel)  private 
    { Private declarations } 
    FHyperLinkKind:THyperLink; 
    FHyperLink:string ; 
  protected 
    { Protected declarations } 
  public 
    { Public declarations } 
  published 
    property HyperLinkKind:THyperLink  read  FHyperLinkKind  write  FHyperLinkKind  default  hlMail; 
    property HyperLink:string  read  FHyperLink  write  FHyperLink; 
    { Published declarations } 
  end; 如果编译支持的话，就只需要去掉tnetlabel = class(TLabel)后面的分号(';')

Answer 2

取消了，还是不行啊，又出现  '；'or':'expected but '=' found 提示