diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index f9487cf217..62535f4f9c 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -2680,6 +2680,11 @@ begin
     fTokenID := tkNumber;
     while FLine[Run] in ['0'..'7'] do inc(Run);
   end
+  else
+  if FLine[Run] in ['A'..'Z', 'a'..'z', '_'] then begin
+    fTokenID := tkIdentifier;
+    while Identifiers[fLine[Run]] do inc(Run);
+  end
   else
     fTokenID := tkSymbol;
 end;