diff --git a/components/codetools/codecompletiontool.pas b/components/codetools/codecompletiontool.pas
index 097a33cc5d..b6b70f8774 100644
--- a/components/codetools/codecompletiontool.pas
+++ b/components/codetools/codecompletiontool.pas
@@ -732,9 +732,9 @@ var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,
         AccessParam:=copy(Src,Parts[ppName].StartPos,
           Parts[ppName].EndPos-Parts[ppName].StartPos)
           +BeautifyCodeOpts.PropertyStoredIdentPostfix;
-      CleanAccessFunc:=UpperCaseStr(AccessParam)+';';
+      CleanAccessFunc:=UpperCaseStr(AccessParam);
       // check if procedure exists
-      if (not ProcExistsInCodeCompleteClass(CleanAccessFunc))
+      if (not ProcExistsInCodeCompleteClass(CleanAccessFunc+';'))
       and (not VarExistsInCodeCompleteClass(CleanAccessFunc))
       then begin
         // add insert demand for function