Font Eigenschaft von TLabel überschreiben

[turboPASCAL]

Hi, wie kann man die Font Eigenschaft von TLabel überschreiben ?
Kann mir bitte jemand helfen ? (*BetriebsBlindUndIdeeenLos*)

Delphi-Quellcode:

type
  TLinkLabel = class(TLabel)
  private
    FUrl: string;
    ...

    function GetFont: TFont;  // grrrrrr
    procedure SetFont(aFont: TFont); // grrrrrr

  protected
    ...
    procedure CMFontChange(var Message: TMessage); message WM_FONTCHANGE; // funzt auch nich' :-(
    procedure WMLMouseDown(var Message: TWMMouse); message WM_LBUTTONDOWN;
    procedure WMLMouseUp(var Message: TWMMouse); message WM_LBUTTONUP;
  public
    constructor Create(Owner: TComponent); override;
    ...
  published
    property Url: string read FUrl write FUrl;
    ...
    property HotFontColor: TColor read FHotFontColor write
      FHotFontColor;
    property Font: TFont read GetFont write SetFont;  // grrrrrr
  end;

procedure Register;

implementation