From e8cc741cb370a0169ea348a6ba93f9254176a49e Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 25 May 2016 20:38:55 +0000
Subject: [PATCH]  * reverse merge of 33057

git-svn-id: branches/fixes_3_0@33803 -
---
 rtl/inc/wstrings.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rtl/inc/wstrings.inc b/rtl/inc/wstrings.inc
index 60f0cab1e0..1a366db4cd 100644
--- a/rtl/inc/wstrings.inc
+++ b/rtl/inc/wstrings.inc
@@ -586,7 +586,7 @@ begin
   Pos:=0;
   if Length(SubStr)>0 then
    begin
-     MaxLen:=Length(source)-Length(SubStr)-(OffSet-1);
+     MaxLen:=Length(source)-Length(SubStr);
      i:=0;
      pc:=@source[1];
      while (i<=MaxLen) do