请教大家的初级有关问题

请问大家的初级问题
我从网上摘了段代码,老是编译不了...

var
 List: TStrings;
 s: string;
begin
 List := TStringList.Create;
 List.CommaText := 'aaa,bbb,ccc';
 for s in List do
 ShowMessage(s);
 List.Free;
end


我的版本是delphi7,是不是不支持?
如果想实现上述代码的功用,有什么更好的方法么?谢谢大家了.

[解决办法]
不好意思，搞錯了，方法還有很多種吧

var
 List: TStringList;
 s: string;
 i:integer;
begin
 List := TStringList.Create;
 List.Text := 'aaa,bbb,ccc';
 for i:=0 to list.Count-1 do
 ShowMessage(list[i]);
 List.Free;

end;
[解决办法]
var
 List: TStrings;
 s: string;
 i:integer;
begin
 List := TStringList.Create;
 List.CommaText := 'aaa,bbb,ccc';
 for i:=0 to list.Count-1 do
 ShowMessage(list[i]);
 List.Free;
[解决办法]

Delphi(Pascal) code

for a in list do的顺序是确定的吗？for a:=0 to list.count-1 do或for a:=list.count-1 downto 0 do
[解决办法]
探讨

我从网上摘了段代码,老是编译不了...

var
 List: TStrings;
 s: string;
begin
 List := TStringList.Create;
 List.CommaText := 'aaa,bbb,ccc';
 for s in List do
 ShowMessage(s);
 List.Free;
end


我的版本是delph……