fix parse delphi 2005 for loop

Author: Tostis

Parse/BuildParseTree.pas

@@ -2293,6 +2293,16 @@ function TBuildParseTree.RecogniseVarDecl(const inlineVar: boolean): boolean;
   end
   else
     RecogniseIdentList(False);
+
+  // check if we are inside a for loop header
+  lc := fcTokenList.FirstSolidToken;
+  if lc.TokenType = ttIn then
+  begin
+    // Delphi 2005 syntax
+    PopNode;
+    Exit;
+  end;	
+	
   Recognise(ttColon);
   RecogniseType;
 

test.pas

@@ -36,6 +36,11 @@ function myFunction(aParam: string
 var inline_var_decl2_string,  inline_var_decl3_string: string :=  'this is a string';
 
  const inline_const := 999;
+ 
+   for var currentField in fieldList do
+  begin
+                var inline_var_decl4: string = 'a string';
+	 end;
 
   for i := 1 to 10 do
     if i < 10 then write(i, ',')