Kompenente erweitern - eigene Property immer leer

[bwolf]

Hi Leute,

stehe irgendwie auf dem Schlauch. Ich will eine Komponente erweitern, aber schaffe es nicht mal eine weiter Property hinzuzufügen und in der Laufzeit auszugeben.
Habe den Code mal auf das Minium reduzierz, es muß irgendwas ganz dämliches meinerseits sein
Danke für eure Hilfe!

Delphi-Quellcode:

unit DBRichEditExt;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls, DBCtrls, Graphics, ExtCtrls,
  Dialogs, Forms, Windows;

type
  TDBRichEditExt = class(TDBRichEdit)
  private
    { Private-Deklarationen }
    FCaption : String;
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
    property Caption: String read FCaption write FCaption;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TDBRichEditExt]);
end;

constructor TDBRichEditExt.Create(AOwner: TComponent);
begin
  inherited;
  showmessage(FCaption); // immer leer?
end;

end.