Kompenente erweitern - eigene Property immer leer

[Neutral General]

Delphi-Quellcode:

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

implementation

// FCaption wäre überflüssig, wenn es noch einen Getter gäbe, der
// die Caption des Anzeige-Labels zurückgeben würde
procedure TDBRichEditExt.setCaption(value : string);
begin
  if value <> FCaption then
  begin
    FCaption := value;  
    FAnzeigeLabel.Caption := FCaption; // := Value;
  end;
end;

Wobei ich in deiner Komponente bisher noch kein Label sehe...