From c1a8b51047886c93bf7bb1a7052d770401acce70 Mon Sep 17 00:00:00 2001
From: mazen <mazen@freepascal.org>
Date: Mon, 4 Oct 2004 16:19:53 +0000
Subject: [PATCH] * Fix erronous insertion of LTR characters inside a string

---
 rtl/objpas/freebidi.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/freebidi.pp b/rtl/objpas/freebidi.pp
index 946da67a13..c027d4fd8c 100644
--- a/rtl/objpas/freebidi.pp
+++ b/rtl/objpas/freebidi.pp
@@ -292,7 +292,9 @@ begin
     begin
       lp := lp + Length(c);
       Result += 1;
-    end;
+    end
+  else
+    Result := vp;
   if DirectionOf(Src) = drRTL
   then
     begin