Как у объекта объявить поле типа TStringList

  
  TConfig = class(TObject)
  public
    PanelNameFull : TStringList;
    FieldNameFull : TStringList;
  end;
---------
 
 
Config := TConfig.Create; // Создаем объект конфигурации
  Config.PanelNameFull.Create;
  Config.PanelNameFull.DelimitedText := 'D, FL, RL';

type
  TConfig = class 
  private
    FPanelNameFull, FFieldNameFull: TStringList;
  public
    constructor Create; dynamic;
    destructor Destroy; override;  
  public
    property PanelNameFull: TStringList read FPanelNameFull;
    property FieldNameFull: TStringList read FFieldNameFull;
  end;
  
implementation
 
constructor TConfig.Create;
begin
  inherited;
  FPanelNameFull:= TStringList.Create();
  FPanelNameFull.DelimitedText := 'D, FL, RL';
  // и т.д.
end;
 
destructor TConfig.Destroy;
begin
  FPanelNameFull.Free();
  inherited;
end;

 TConfig = class(TObject)
  public
    PanelNameFull : TStrings;//TStringList не запрещается, но так выше ур. совместимости.
    FieldNameFull : TStrings;
    constructor Create;
    destructor Destroy;
  end;
---------
 
constructor TConfig.Create;
begin
inherited;
PanelNameFull:=TStringList.Create;
FieldNameFull:=TStringList.Create;
Config.PanelNameFull.DelimitedText := 'D, FL, RL';
end; 
 
destructor TConfig.Destroy;//Убивать поля Пушкин будет?
begin
PanelNameFull.Free;
FieldNameFull.Free;
inherited;
end;
 
Config := TConfig.Create; // Создаем объект конфигурации

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TConfig = class(TObject)
  protected
    FPanelNameFull : TStringList;
    FFieldNameFull : TStringList;
  public
    constructor Create;
    destructor Destroy;
    property PanelNameFull: TStringList read FPanelNameFull;
    property FieldNameFull: TStringList read FFieldNameFull;
  end;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TConfig }
 
constructor TConfig.Create;
begin
  inherited;
  FPanelNameFull := TStringList.Create;
  FFieldNameFull := TStringList.Create;
end;
 
destructor TConfig.Destroy;
begin
  FPanelNameFull.Free;
  FFieldNameFull.Free;
  inherited;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  c: TConfig;
begin
  c := TConfig.Create;
  c.PanelNameFull.DelimitedText := 'D, FL, RL';
/// Работа с объектом
 
  c.Free; // Или FreeAndNil(c);
end;
 
end.

property Active: Boolean read FActive write SetActive;

property PanelNameFull: TStringList read FPanelNameFull write FPanelNameFull;

    property PanelNameFull: TStringList read FPanelNameFull;

var
  c: TConfig;
  sl: TStringList;
begin
  c.PanelNameFull := sl;

TMyClass=class
private
  FValue:Integer;
public
  GetValue:Integer;
  SetValue(Value:Integer);

TMyClass=class
private
  FValue:Integer;
  GetValue:Integer;
  SetValue(Value:Integer);
public
  property Value:Integer read FValue write SetValue;

MyClass.Value:=X;