Kompenente erweitern - eigene Property immer leer

[bwolf]

Hi,
ich dachte das die setter / getter optional sind...zu anfangs hatte ich es so:

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;
    procedure setCaption(value : string);
    function getCaption() : string;
  published
    { Published-Deklarationen }
    property Caption: String read getCaption write setCaption;
  end;

procedure Register;

implementation

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

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

procedure TDBRichEditExt.setCaption(value : string);
begin
  if value <> FCaption then
    FCaption := value;
end;

function TDBRichEditExt.getCaption() : string;
begin
  result := FCaption;
end;

end.