diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index ab9560df5c..e6e0ab63af 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1214,8 +1214,16 @@ begin
     end;
     if not Extract then
       ReadNextAtom
-    else
+    else begin
       ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
+      if (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose])
+      and (Src[CurPos.StartPos] = CloseBracket)
+      then begin                               // skip parenthesis
+        ExtractMemStream.Position := ExtractMemStream.Position - 1;
+        ReadNextAtom;
+        Exit(True);
+      end;
+    end;
   end else
     CloseBracket:=#0;
   if not (CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose]) then begin