diff --git a/components/codetools/identcompletiontool.pas b/components/codetools/identcompletiontool.pas
index aebba2d49e..14341c9b47 100644
--- a/components/codetools/identcompletiontool.pas
+++ b/components/codetools/identcompletiontool.pas
@@ -631,7 +631,7 @@ begin
   cPriorityCount := 0;
   while AnAVLNode<>nil do begin
     CurItem:=TIdentifierListItem(AnAVLNode.Data);
-    if not CurItem.Identifier.IsEmpty then
+    if CurItem.Identifier<>'' then
     begin
       if ComparePrefixIdent(PChar(Pointer(Prefix)),PChar(Pointer(CurItem.Identifier)))
       then begin