TZLog = class(TComponent)
 private
   FComments: TStrings;
   procedure SetComments(Value: TStrings);
 public
   constructor Create(AOwner: TComponent);
   destructor Destroy; override;
 published
   property Comments: TStrings read FComments write SetComments;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents('BBIC', [TZLog]);
end;

constructor TZLog.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 FComments := TStringList.Create;
end;

destructor TZLog.Destroy;
begin
 FComments.Free;
 inherited Destroy;
end;

procedure TZLog.SetComments(Value: TStrings);
begin
 FComments.Assign(Value);
end;