Index: packages/fcl-pdf/src/fpttfsubsetter.pp
===================================================================
--- packages/fcl-pdf/src/fpttfsubsetter.pp	(revision 48225)
+++ packages/fcl-pdf/src/fpttfsubsetter.pp	(working copy)
@@ -940,12 +940,18 @@
 function TFontSubsetter.buildHmtxTable: TStream;
 var
   n: integer;
+  GID: longint;
+  LastGID: longint;
 begin
   Result := TMemoryStream.Create;
+  LastGID := Length(FFontInfo.Widths)-1;
   for n := 0 to FGlyphIDs.Count-1 do
   begin
-    WriteUInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].AdvanceWidth);
-    WriteInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].LSB);
+    GID := FGlyphIDs[n].GID;
+    if GID > LastGID then
+      GID := LastGID;
+    WriteUInt16(Result, FFontInfo.Widths[GID].AdvanceWidth);
+    WriteInt16(Result, FFontInfo.Widths[GID].LSB);
   end;
 end;
 

Index: packages/fcl-pdf/src/fpparsettf.pp
===================================================================
--- packages/fcl-pdf/src/fpparsettf.pp	(revision 48808)
+++ packages/fcl-pdf/src/fpparsettf.pp	(working copy)
@@ -501,14 +501,30 @@
 procedure TTFFileInfo.ParseHmtx(AStream : TStream);
 var
   i : Integer;
+  LSB:  TSmallintArray;
+  LastAdvanceWidth: Word;
 begin
-  SetLength(FWidths,FHHead.numberOfHMetrics);
-  AStream.ReadBuffer(FWidths[0],SizeOf(TLongHorMetric)*Length(FWidths));
+  SetLength(FWidths,FMaxP.numGlyphs);
+
+  AStream.ReadBuffer(FWidths[0],SizeOf(TLongHorMetric)*FHHead.numberOfHMetrics);
   for I:=0 to FHHead.NumberOfHMetrics-1 do
   begin
     FWidths[I].AdvanceWidth:=BEtoN(FWidths[I].AdvanceWidth);
     FWidths[I].LSB:=BEtoN(FWidths[I].LSB);
   end;
+
+  if FMaxP.numGlyphs > FHHead.NumberOfHMetrics then
+  begin
+    LastAdvanceWidth := FWidths[FHHead.NumberOfHMetrics-1].AdvanceWidth;
+
+    SetLength(LSB, FMaxP.numGlyphs - FHHead.numberOfHMetrics);
+    AStream.ReadBuffer(LSB[0],SizeOf(Int16)*Length(LSB));
+    for I:= FHHead.NumberOfHMetrics to FMaxP.numGlyphs-1 do
+    begin
+      FWidths[I].AdvanceWidth:= LastAdvanceWidth;
+      FWidths[I].LSB:=BEtoN(LSB[I-FHHead.NumberOfHMetrics]);
+    end;
+  end;
 end;
 
 
@@ -772,7 +788,31 @@
 procedure TTFFileInfo.LoadFromStream(AStream : TStream);
 var
   i: Integer;
-  tt : TTTFTableType;
+
+  procedure ParseTable(TT : TTTFTableType);
+  var 
+    j: integer;
+  begin
+    for j:=0 to FTableDir.NumTables-1 do
+    begin
+      if TT = GetTableType(FTables[j].Tag) then
+      begin
+        AStream.Position:=FTables[j].Offset;
+        Case TT of
+          tthead: ParseHead(AStream);
+          ttHhea: ParseHhea(AStream);
+          ttmaxp: ParseMaxp(AStream);
+          tthmtx: ParseHmtx(AStream);
+          ttcmap: ParseCmap(AStream);
+          ttname: ParseName(AStream);
+          ttos2 : ParseOS2(AStream);
+          ttPost: ParsePost(AStream);
+        end;
+        break;
+      end;
+    end;
+  end;
+
 begin
   FOriginalSize:= AStream.Size;
   AStream.ReadBuffer(FTableDir,Sizeof(TTableDirectory));
@@ -795,24 +835,17 @@
       offset:=BeToN(offset);
       Length:=BeToN(Length);
     end;
-  for I:=0 to FTableDir.NumTables-1 do
-  begin
-    TT:=GetTableType(FTables[I].Tag);
-    if (TT<>ttUnknown) then
-    begin
-      AStream.Position:=FTables[i].Offset;
-      Case TT of
-        tthead: ParseHead(AStream);
-        ttHhea: ParseHhea(AStream);
-        ttmaxp: ParseMaxp(AStream);
-        tthmtx: ParseHmtx(AStream);
-        ttcmap: ParseCmap(AStream);
-        ttname: ParseName(AStream);
-        ttos2 : ParseOS2(AStream);
-        ttPost: ParsePost(AStream);
-      end;
-    end;
-  end;
+
+  // Consistency is important
+  ParseTable(tthead);
+  ParseTable(ttHhea);
+  ParseTable(ttmaxp);
+  ParseTable(tthmtx);
+  ParseTable(ttcmap);
+  ParseTable(ttname);
+  ParseTable(ttos2);
+  ParseTable(ttPost);
+
 end;
 
 procedure TTFFileInfo.PrepareFontDefinition(const Encoding: string; Embed: Boolean);
@@ -930,19 +963,8 @@
 end;
 
 function TTFFileInfo.GetAdvanceWidth(AIndex: word): word;
-var
-  i: SizeInt;
 begin
-  // There may be more glyphs than elements in the array, in which
-  // case the last entry is to be used.
-  // https://docs.microsoft.com/en-us/typography/opentype/spec/hmtx
-  i := Length(Widths);
-  if AIndex >= i then
-    Dec(i)
-  else
-    i := AIndex;
-
-  Result := Widths[i].AdvanceWidth;
+  Result := Widths[AIndex].AdvanceWidth;
 end;
 
 function TTFFileInfo.ItalicAngle: single;
Index: packages/fcl-pdf/src/fppdf.pp
===================================================================
--- packages/fcl-pdf/src/fppdf.pp	(revision 48808)
+++ packages/fcl-pdf/src/fppdf.pp	(working copy)
@@ -1747,7 +1747,6 @@
   s: string;
   lst: TTextMappingList;
   lFont: TTFFileInfo;
-  lWidthIndex: integer;
 begin
   s := '';
   lst := Document.Fonts[EmbeddedFontNum].TextMapping;
@@ -1760,15 +1759,9 @@
   System.WriteLn('****** HHead.numberOfHMetrics := ', lFont.HHead.numberOfHMetrics );
   {$ENDIF}
 
-  { NOTE: Monospaced fonts may not have a width for every glyph
-          the last one is for subsequent glyphs.  }
   for i := 0 to lst.Count-1 do
   begin
-    if lst[i].GlyphID < lFont.HHead.numberOfHMetrics then
-      lWidthIndex := lst[i].GlyphID
-    else
-      lWidthIndex := lFont.HHead.numberOfHMetrics-1;
-    s :=  s + Format(' %d [%d]', [lst[i].GlyphID, TTTFFriendClass(lFont).ToNatural(lFont.Widths[lWidthIndex].AdvanceWidth)])
+    s :=  s + Format(' %d [%d]', [lst[i].GlyphID, TTTFFriendClass(lFont).ToNatural(lFont.Widths[lst[i].GlyphID].AdvanceWidth)])
   end;
 
   WriteString(s, AStream);
Index: packages/fcl-pdf/src/fpttfsubsetter.pp
===================================================================
--- packages/fcl-pdf/src/fpttfsubsetter.pp	(revision 48808)
+++ packages/fcl-pdf/src/fpttfsubsetter.pp	(working copy)
@@ -940,18 +940,12 @@
 function TFontSubsetter.buildHmtxTable: TStream;
 var
   n: integer;
-  GID: longint;
-  LastGID: longint;
 begin
   Result := TMemoryStream.Create;
-  LastGID := Length(FFontInfo.Widths)-1;
   for n := 0 to FGlyphIDs.Count-1 do
   begin
-    GID := FGlyphIDs[n].GID;
-    if GID > LastGID then
-      GID := LastGID;
-    WriteUInt16(Result, FFontInfo.Widths[GID].AdvanceWidth);
-    WriteInt16(Result, FFontInfo.Widths[GID].LSB);
+    WriteUInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].AdvanceWidth);
+    WriteInt16(Result, FFontInfo.Widths[FGlyphIDs[n].GID].LSB);
   end;
 end;