diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 93c8e1d69c..096719c033 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1500,6 +1500,8 @@ begin
       and (Src[CurPos.StartPos] = CloseBracket)
       then begin             // empty brackets: extract also the closing bracket.
         ExtractNextAtom(not (phpWithoutBrackets in Attr),Attr);
+        if (not (phpWithoutBrackets in Attr)) and (CloseBracket=')') then // delete empty '()'
+          ExtractMemStream.Position:=ExtractMemStream.Position-2;
         exit(true);
       end;
     end;