anchor.diff:      valid: Integer;
     End;
   
  +  TTFContourArray = Record
  +    List:Array Of Integer;
  +    Count:Integer;
  +  End;
  +
     TTFFont = Class(FontGlyphFactory)
       Private
         _Scale:Single;
  
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: 
     SetLength(Pts.List, 0);
     Pts.Count := 0;
  
     SetLength(Windings.List, 0);
     Windings.Count := 0;
  
     // now sort the edges by their highest point (should snap to integer, and then by x)
     e.Sort();
  