Delphi dicas

Como criar um tstrings

Procedure {}

var sStrings: TStrings;

begin

        sStrings := TStringList.Create;

        try

        { Corpo de trabalho}

        finally

        sStrings.Free;

end;