var
 temp:string;
 i:integer;
 rs:Tstringlist;begin
  rs:=tstringlist.Create;
  temp:=edit1.Text; //比如edit1.text的内容为'This is a book'
  i:=pos(chr(32),temp);
  while i<>0 do
    begin
      rs.Add(copy(temp,0,i-1));
      delete(temp,1,i);
      i:=pos(chr(32),temp);
    end;
    rs.Add(temp);    for i:=0 to rs.Count-1  do
        showmessage(rs.Strings[i]); //这样可以输出,但是如果换成 for i:=rs.count-1 to 0 do 就什么都没有
end;
 倒过来,为什么什么都不显示.