anchor.diff:     end;
   end;
   
  -
   procedure TTFFont.stbtt__rasterize_sorted_edges(resultBitmap:Image; e: EdgeList; vsubsample, off_x, off_y: Integer);
   var
      active: TStBttActiveEdge;
      y,j,s,iii: Integer;
      max_weight: Integer;
  -   scanline: ByteArray;
      scan_y: Single;
      Temp, Prev: TStBttActiveEdge;
      p, z: TStBttActiveEdge;
  
positive.code:   z:TStBttActiveEdge;
    dxdy: Single;
  Begin
    Z := TStBttActiveEdge.Create(); // @TODO: make a pool of these!!!
  
    dxdy := (e.x1 - e.x0) / (e.y1 - e.y0);
    //STBTT_assert(e->y0 <= start_point);
  
negative.code:   encoding_record: Cardinal;
    i,numTables: Cardinal;
  begin
    _Data := Nil;
    _DataSize := 0;
    _Ready := False;
  
    If (Source = Nil) then
  