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