怎么样随机调用TStringList中的一个字符？

Question

//Randomize;
ShowMessage(ListBox1.Items[Random(ListBox1.Items.Count)]);

Answer 1

var inti:integer;
begin
  ...
  inti:=int(random(listbox1.items.count));
  filelist:=listbox1.items[inti];
  ...

Answer 2

var   I: Integer;
   fileList:TStringList;
 begin
   filelist:=ListBox1.Items;
   Randomize;
   i := int(random(listbox1.items.count));
   filelist := listbox1.items[i];
 end;

Answer 3

是去一条记录,还是字符啊??
如果是记录:
 filestring:=listbox1.items;
i:=int(random(listbox1.items.count));
 showmessage(filestring.values[i]);