Benötige Hilfe beim Entwickeln einer Komponente

[torud]

Hier nochmal alles, was ich zum Thema Font in meiner Komponente drin habe:

Delphi-Quellcode:

private
    ...
    FFont: TFont;
  published
    property Font: TFont read FFont write FFont;

constructor TmyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FFont:=TFont.Create;
  ...

destructor TmyPanel.Destroy;
begin
  FFont.Free;
  ...

procedure TmyPanel.Paint;
begin
  ...
  Canvas.Font        := Font;