StringList in eigener Klasse

[Klaus01]

..
die Procedure sollte schon zu Klasse gehöhren.
Die StringList würde ich dann im Constructor Create
erstellen.

Grüße
Klaus

Delphi-Quellcode:

type
  TMyClass = class
    private
      Fsl: THashedStringList; // Links
    public
      property sl: THashedStringList read Fsl write Fsl;
      procedure addSl(content: string);
    end;

procedure TmyClass.addSl(content: string);
Begin
  sl.add(content);
end;