From 42f219cfc4792b235648bcad8df664b565c8965e Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 25 Jul 2005 17:11:08 +0000
Subject: [PATCH] + Fix for bug #4222 by Rodrigo Robles

git-svn-id: trunk@745 -
---
 rtl/objpas/strutils.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/rtl/objpas/strutils.pp b/rtl/objpas/strutils.pp
index 1aeed5d05a..8eca3e791a 100644
--- a/rtl/objpas/strutils.pp
+++ b/rtl/objpas/strutils.pp
@@ -1168,7 +1168,10 @@ begin
   Count:=WordCount(S, WordDelims);
   I:=1;
   While (Not Result) and (I<=Count) do
+    begin
     Result:=ExtractWord(i,S,WordDelims)=W;
+    Inc(i);
+    end;
 end;