哈哈，我猜得出来！你的代码是不是这样的：
var names: TStringList;
begin
Names := ListBox1.items;
...
end;
然后系统就报错出现 Access Violation Error: ????? 什么的？
这是因为你未给 names 变量实例化，就直接赋值了。
例中的 Names 是一个对象，不是一个简单的变量，所以在使用之前，一定要先生成
它的实例，改成这样就好了:
begin
Names := TStringList.Create;
Names := ListBox1.Items;
...
