如何让TStringList大小写敏感？

Question

据说delphi 6 新增功能:
TStringList新增属性CaseSensitive(大小写敏感)，允许你控制子串列表的各项操作（排序，匹配）是否大小写敏感。可我一直没试出来。如：
var TS_1:TStrings;
begin
  TS_1:=TStringList.Create;
  TS_1.Add('X') ;
  TS_1.Add('x');
  TS_1.Add('上') ;
  TS_1.CaseSensitive:=true; ----本句无法通过编译
  TS_1.Free ;如何做？谢谢！！！

Answer 1

自己继承一个新的类，如TCStringList，加上CaseSensitive属性，然后增加Sort方法

Answer 2

var TS_1: TStringList; { TStrings };
begin
  TS_1:=TStringList.Create;
  TS_1.Add('X') ;
  TS_1.Add('x');
  TS_1.Add('上') ;
  TS_1.CaseSensitive:=true;
//  TStringList(TS_1).CaseSensitive:=true;
  TS_1.Free ;
end;

Answer 3

看错了，不好意思！！将
var TS_1:TStrings;
改成
var TS_1: TStringList;