unit StrHolder;
interface

uses
  SysUtils, Classes, Controls;

type
  TStrHolder = class(TComponent)
  private
    FText: TStringList;
    procedure SetText(Value:TStringList);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property Text: TStringList read FText write SetText;
end;

procedure Register;

implementation

procedure Register;
begin
  { Register component }
  RegisterComponents('System',[TStrHolder]);
end;

constructor TStrHolder.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  { Create TStringList to store build in Text }
  FText := TStringList.Create;
end;

destructor TStrHolder.Destroy;
begin
  { Free TStringList }
  FText.Free;
  inherited Destroy;
end;

procedure TStrHolder.SetText(Value:TStringList);
begin
  If FText <> Value then FText.Assign( Value )
end;

end.