diff --git a/components/codetools/expreval.pas b/components/codetools/expreval.pas
index 3f43213cbb..2c7b56c957 100644
--- a/components/codetools/expreval.pas
+++ b/components/codetools/expreval.pas
@@ -1379,7 +1379,7 @@ var
   begin
     BracketOpen:=AtomStart;
     BracketLvl:=0;
-    while p<ExprEnd do begin
+    while p<=ExprEnd do begin
       case AtomStart^ of
       '(': inc(BracketLvl);
       ')':