git-svn-id: trunk@49121 - (cherry picked from commit d28cf7c393008263d66ebec22f16c48a417f2ee6)
@@ -10628,6 +10628,7 @@ begin
end;
eopAdd:
begin
+ // handle multi add
Left:=El.left;
while (Left.ClassType=TBinaryExpr) do