From db1efd026472270cb1d6ca7101387d16a916eea4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 18 Oct 2023 16:40:53 +0200
Subject: [PATCH] * Fix windows implementation of find. Fixes issue #40473

---
 packages/fcl-pdf/src/fpttf.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-pdf/src/fpttf.pp b/packages/fcl-pdf/src/fpttf.pp
index d1e788d2fb..9f7d124868 100644
--- a/packages/fcl-pdf/src/fpttf.pp
+++ b/packages/fcl-pdf/src/fpttf.pp
@@ -1058,7 +1058,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]);