From 2cec31d86f232e5c47fbe20dfd115d8caf2e5ba5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Thu, 2 Nov 2023 13:56:45 +0100
Subject: [PATCH] * correct aDelta size

---
 packages/rtl-objpas/src/inc/strutils.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl-objpas/src/inc/strutils.pp b/packages/rtl-objpas/src/inc/strutils.pp
index 019d314396..4e84476ccc 100644
--- a/packages/rtl-objpas/src/inc/strutils.pp
+++ b/packages/rtl-objpas/src/inc/strutils.pp
@@ -1967,7 +1967,7 @@ begin
   SetLength(result, SizeUint(Pointer(Se) - Pointer(Ss)) div sizeof(Char));
   Rp := PChar(Pointer(Result));
   repeat
-    aDelta:=(Pointer(Sp) - Pointer(Ss))*SizeOf(Char);
+    aDelta:=(Pointer(Sp) - Pointer(Ss));
     Move(Ss^, Rp^, aDelta);
     Inc(Pointer(Rp), aDelta);
     repeat