anchor.diff:     end;
   End;
   
  -procedure TTFFont.stbtt_Rasterize(resultBitmap:Image; FlatnessInPixels: Single; Var Vertices:TStBttVertexArray; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
  -var
  +Procedure TTFFont.stbtt_Rasterize(resultBitmap:Image; FlatnessInPixels: Single; Var Vertices:TStBttVertexArray; ScaleX, ScaleY, ShiftX, ShiftY: Single; XOff, YOff, Invert: Integer);
  +Var
     Scale: Single;
     WindingLengths:TTFContourArray;
     Windings: TStBttPointArray;
  -begin
  -   Scale := Min(ScaleX, ScaleY);
  -
  -    stbtt_FlattenCurves(Vertices, FlatnessInPixels / Scale, WindingLengths, Windings);
  -   If windings.Count>0 then
  -   begin
  -      stbtt__rasterize(resultBitmap, Windings, WindingLengths, ScaleX, ScaleY, ShiftX, ShiftY, XOff, YOff, Invert);
  +Begin
  +  Scale := Min(ScaleX, ScaleY);
  +
  +  stbtt_FlattenCurves(Vertices, FlatnessInPixels / Scale, WindingLengths, Windings);
  +  If windings.Count>0 then
  +  Begin
  +    stbtt__rasterize(resultBitmap, Windings, WindingLengths, ScaleX, ScaleY, ShiftX, ShiftY, XOff, YOff, Invert);
         //FreeMem(Windings);
  -   end;
  -end;
  +  End;
  +End;
   
   Procedure TTFFont.stbtt__rasterize(resultBitmap:Image; Var Pts: TStBttPointArray; Var Windings:TTFContourArray; ScaleX, ScaleY, ShiftX,ShiftY: Single; XOff, YOff, Invert: Integer);
   Var
  
positive.code: 
    Else
      Begin
       // @TODO
       Result := 0;
      End;
  
  
negative.code: 
                 x := vertices.List[i].x;
                 y := vertices.List[i].y;
                 stbtt__add_point(Windings, NumPoints, x,y);
                 Inc(NumPoints);
              end;
  
  