Eigene Kompo sträubt sich

[DGL-luke]

Hallo,

hab ne Kompo gebaut. Sieht so aus:

Delphi-Quellcode:

unit StringStorage;

interface

uses Classes;

type
  TStringStorage = class(TComponent)
  private
    FStrings: TStrings;
    procedure SetStrings(const Value: TStrings);
  public
    constructor Create(AOwner: TComponent); override;
  published
    property AllStrings: TStrings read FStrings write SetStrings;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('BMS Translation',[TStringStorage]);
end;

{ TStringStorage }

constructor TStringStorage.Create(AOwner: TComponent);
begin
  inherited;

  FStrings := TStringList.Create;
end;

procedure TStringStorage.SetStrings(const Value: TStrings);
begin
  FStrings.Assign(Value);
end;

end.

Eigentlcih nix großartiges. In n Package gepackt und installiert.

aber folgendes passiert:

- kompo auf form ziehen
- im OI auf AllStrings doppelklicken -> Strings-Editopr
- irgendwas eingeben -> schließen
- editor wieder öffnen: Leer!
- wieder eingeben, udn schließen
- editor wieder öffnen: Ungültige zeigeroperation, AV, sonstiges.

warum?!