Delphi的TLinkLabel坏了吗?

procedure Tform_About.FormCreate(Sender: TObject);
begin
  inherited;  // <- GenericBase form
  //
  linklabel_EULA.Caption := 'Visit <a href="https://www.example.com">Website</a> or view <a href="#EULA">EULA</a>.';
end;

//----------------------------------------------------------------------------------------------------------------------
procedure Tform_About.linklabel_EULALinkClick(Sender: TObject; const Link: String; LinkType: TSysLinkType);
begin
  case LinkType of
    sltID:  HandleIDLink(Link);
    sltURL: ShellExecute(0, 'open', PChar(Link), nil, nil, SW_SHOWNORMAL);
  end;
end;

单击“EULA”后 Link 的参数 LinkClick 程序正确输入为 '#EULA' ,但是 LinkType 参数为 sltURL 。有什么想法吗?虫子?