From 663101122f04e1835825753c6658831be39010d3 Mon Sep 17 00:00:00 2001
From: Roman Kassebaum <roman.kassebaum@kdv-dt.de>
Date: Tue, 19 Jul 2016 10:33:40 +0200
Subject: [PATCH] Missed a ')'.

---
 PdfFonts.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PdfFonts.pas b/PdfFonts.pas
index 1e73216..2fb7b2d 100644
--- a/PdfFonts.pas
+++ b/PdfFonts.pas
@@ -584,7 +584,7 @@ function TPdfType1Font.GetCharWidth(AText: string; APos: integer): integer;
 var
   lDefaultWidth: Word;
 begin
-  if not FArray.TryGetValue(Ord(AText[APos], Result) then
+  if not FArray.TryGetValue(Ord(AText[APos]), Result) then
   begin
     // initialize char widths array by default value (if missing width parameter
     // is defined, use it as default value.)