anchor.diff:      valid: Integer;
     End;
   
  +  TTFContourArray = Record
  +    List:Array Of Integer;
  +    Count:Integer;
  +  End;
  +
     TTFFont = Class(FontGlyphFactory)
       Private
         _Scale:Single;
  
positive.code:         Result.Count := NumPoints * 2 ;
          SetLength(Result.List, Result.Count);
        End;
        
        NumPoints := 0;
        n := -1;
  
  
negative.code:    for i:=0 to num_verts-1 do
        if vertices[i].vertexType = STBTT_vmove then Inc(n);
  
     Contours.List := Nil;
     Contours.Count := n;
     If n = 0 Then
       Exit;
  
     SetLength(Contours.List, N);
  
     // make two passes through the points so we don't need to realloc
     for pass:=0 to 1 do
  