德尔福有没有得到一个循环？

我已经读过，Delphi应该是为Delphi 9中的每个循环获得的。这个功能是否已经成为这个语言？我的Delphi 2009 IDE似乎没有识别每个语法。这是我的代码：

procedure ProcessDirectory(p_Directory,p_Output : string);
  var
    files : TStringList;
    filePath : string;
  begin
    files := GetSubfiles(p_Directory);
    try
      for (filePath in files.Strings) do
      begin
        // do something
      end;

    finally
      files.Free;
    end;
  end;

解决方法

procedure ProcessDirectory(p_Directory,p_Output : string); 
var 
  files : TStringList; 
  filePath : string; 
begin 
  files := GetSubfiles(p_Directory); 
  try 
    for filePath in files do 
    begin 
      // do something 
    end; 

  finally 
    files.Free; 
  end; 
end;