+ initialize CharWidth with default function

rtl/objpas/freebidi.pp

@@ -140,7 +140,7 @@ var
 begin
   Result := 0;
   Count := Length(Src);
-  while (Count>0) do
+  while (Count > 0) do
   begin
     Result += CharWidth(Src[Count], FontInfoPtr);
     Count -= 1;
@@ -349,5 +349,9 @@ begin
     Result[vp] := Src[v2lSrc[vp]];
 end;
 
+initialization
+
+  CharWidth := @DefaultCharWidth;
+
 end.