From 03bf02974e03a366e43c452a3a99015b1967bc81 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Mon, 23 Sep 2024 11:58:02 +0200
Subject: [PATCH] Codetools: Prevent another range check error. Issue #40922

---
 components/codetools/basiccodetools.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/basiccodetools.pas b/components/codetools/basiccodetools.pas
index 1ddcc6221a..bde43526fb 100644
--- a/components/codetools/basiccodetools.pas
+++ b/components/codetools/basiccodetools.pas
@@ -1831,7 +1831,7 @@ begin
   and (IsIdentChar[Source[IdentEnd]]) do
     inc(IdentEnd);
 
-  if not ((Source[IdentStart]='&') and IsIdentStartChar[Source[IdentStart+1]]) then
+  if not ((Source[IdentStart]='&') and (IdentStart<length(Source)) and IsIdentStartChar[Source[IdentStart+1]]) then
     while (IdentStart<Position)
     and (not IsIdentStartChar[Source[IdentStart]]) do
       inc(IdentStart);