* Fix erronous insertion of LTR characters inside a string

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