diff --git a/components/codetools/examples/fixdefinitionorder.lpi b/components/codetools/examples/fixdefinitionorder.lpi
index 6864ec7d5a..9934345049 100644
--- a/components/codetools/examples/fixdefinitionorder.lpi
+++ b/components/codetools/examples/fixdefinitionorder.lpi
@@ -26,10 +26,10 @@
-
+
-
+
diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index c425c3f128..e7f298b3a6 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1838,7 +1838,7 @@ function TPascalParserTool.KeyWordFuncClassProperty: boolean;
end;
begin
- if not (CurNode.Desc in AllClassBaseSections) then
+ if not (CurNode.Desc in (AllClassBaseSections+[ctnClassInterface])) then
RaiseIdentExpectedButAtomFound;
// create class method node
CreateChildNode;