diff --git a/Source/SimpleParser/SimpleParser.pas b/Source/SimpleParser/SimpleParser.pas
index 52fc99dd..79ceb865 100644
--- a/Source/SimpleParser/SimpleParser.pas
+++ b/Source/SimpleParser/SimpleParser.pas
@@ -2203,7 +2203,7 @@ procedure TmwSimplePasPar.ForStatement;
     InlineVarDeclaration;
   end
   else
-    QualifiedIdentifier;
+    Variable;
 
   if Lexer.TokenID = ptAssign then
   begin