TT_Get_Metrics

procedure TT_Get_Metrics(

  var header: TT_Horizontal_Header;

  index: Int;

  var bearing: TT_Pos;

  var advance: TT_Pos

);