diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index b9174f2f45..1c965812b8 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -3080,6 +3080,7 @@ begin
       end;
     end
     else begin
+      // invalid character
       Result:=ord(p^);
       CharLen:=1;
     end;