1、打开Delphi7集成开发环境，在默认工程的Form1窗体放一个Memo1控件和一个Button1按钮。
2、在Unit1.pas源代码文件的implementation区声明一个TStringList类型的变量，并在Form1的OnCreate事件方法，写如下代码：procedure TForm1.FormCreate(Sender: TObject);begin sl:=TStringList.Create; sl.Add('b'); sl.Add('a'); sl.Add('c'); Memo1.Lines:=sl;end;
3、双击Button1按钮进入OnClick事件方法，写如下代码实现排序功能：procedure TForm1.Button1Click(Sender: TObject);begin sl.Sort; Memo1.Lines:=sl; sl.Free;end;
4、F9运行程序，Memo1控件内容为‘b a c’点击Button1后内容为‘a b c’成功实现排序
5、修改Form1的OnCreate事件方法，代码如下：procedure TForm1.FormCreate(Sender: TObject);begin sl:=TStringList.Create; sl.Add('a=111'); sl.Add('b=222'); sl.Add('c=333'); sl.Add('d=444'); Memo1.Lines:=sl;end;修改Button1的OnClick方法代码如下：procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(sl.Names[1]); ShowMessage(sl.Values['b']); Memo1.Lines:=sl; sl.Free;end;解释一下：Names[n]是只读属性，只能通过位置读取key名称。Values[key]可以通过key给value赋值也就是说key一旦确定无法改变，只有value可以改变
6、F9运行程序，点击Button1，先弹出位置为1的键值对的key，再弹出key为‘b’对应的value值。
