anchor.diff:              end;
            end;
         end;
  -      contour_lengths[n] := NumPoints - start;
  +      Contours.List[n] := NumPoints - start;
      end;
   End;
   
   procedure TTFFont.stbtt_Rasterize(resultBitmap:Image; FlatnessInPixels: Single; Vertices: PStBttVertexArray; NumVerts: Integer; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
   var
     Scale: Single;
  -  WindingCount: Integer;
  -  WindingLengths: PIntegerArray;
  +  WindingLengths:TTFContourArray;
     Windings: TStBttPointArray;
   begin
      Scale := Min(ScaleX, ScaleY);
   
  -    stbtt_FlattenCurves(Vertices, NumVerts, FlatnessInPixels / Scale, WindingLengths, WindingCount, Windings);
  +    stbtt_FlattenCurves(Vertices, NumVerts, FlatnessInPixels / Scale, WindingLengths, Windings);
      If windings.Count>0 then
      begin
  -      stbtt__rasterize(resultBitmap, Windings, WindingLengths, WindingCount, ScaleX, ScaleY, ShiftX, ShiftY, XOff, YOff, Invert);
  +      stbtt__rasterize(resultBitmap, Windings, WindingLengths, ScaleX, ScaleY, ShiftX, ShiftY, XOff, YOff, Invert);
         //FreeMem(Windings);
      end;
   end;
   
  -Procedure TTFFont.stbtt__rasterize(resultBitmap:Image; Var Pts: TStBttPointArray; WCount: PIntegerArray; Windings: Integer; ScaleX, ScaleY, ShiftX,ShiftY: Single; XOff, YOff, Invert: Integer);
  +Procedure TTFFont.stbtt__rasterize(resultBitmap:Image; Var Pts: TStBttPointArray; Var Windings:TTFContourArray; ScaleX, ScaleY, ShiftX,ShiftY: Single; XOff, YOff, Invert: Integer);
   Var
     YScaleInv: Single;
     i,j,k,m, a,b, VSubSample: Integer;
  
positive.code:    e := EdgeList.Create();
     m := 0;
  
     for i:=0 to windings-1 do
     begin
        ptOfs := M;
  
        Inc(m, wcount[i]);
        j := wcount[i]-1;
        k:=0;
        while k < wcount[i] do
        begin
  
           a := k;
  
negative.code:     valid: Integer;
    End;
  
    TTFContourArray = Record
      List:Array Of Integer;
      Count:Integer;
    End;
  
    TTFFont = Class(FontGlyphFactory)
      Private
        _Scale:Single;
  