(cherry picked from commit 672f90bf40cc6fe8d3dbb2be0402e41d7113fc00)
@@ -509,6 +509,7 @@ begin
FSkipStackIndex:=0;
Faborted:=False;
FLine:=1;
+ FCol:=1;
DefaultDirectives;
Repeat
NextStatement();