diff --git a/packages/fcl-pdf/src/fpttf.pp b/packages/fcl-pdf/src/fpttf.pp
index dc0df9a34b..4450d34f13 100644
--- a/packages/fcl-pdf/src/fpttf.pp
+++ b/packages/fcl-pdf/src/fpttf.pp
@@ -1070,7 +1070,7 @@ begin
       end;
     if enum.matches.Count>0 then // there are matches
       begin
-      fpath:=GetWinFontsDir;
+      fpath:=IncludeTrailingPathDelimiter(GetWinFontsDir);
       for i:=enum.matches.Count-1 downto 0 do
         begin
         FI:=TFontItem(enum.matches[i]);