Komponente mit Lines erstellen

[sakura]

Viel einfacher...

Delphi-Quellcode:

type
  TMeineKompo = class(TComponent)
  private
    FLines: TStringList;
    procedure SetLines(Value: TStringList);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Lines: TStringList read FLines write SetLines;
  end;

....

constructor TMeineKompo.Create(AOwner: TComponent); 
begin
  inherited;
  FLines := TStringList.Create;
end;

destructor TMeineKompo.Destroy; 
begin
  FLines.Free;
  inherited;
end;

procedure TMeineKompo.SetLines(Value: TStringList);
begin
  FLines.Assign(Value);
end;

Fertig

......