From b9aeeaa6e3bab21e578e67c1a66ed1bf94fec4a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 21 Jun 2023 13:30:23 +0200
Subject: [PATCH] * Initialize result string

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

diff --git a/packages/fcl-pdf/src/fppdfscanner.pp b/packages/fcl-pdf/src/fppdfscanner.pp
index 20cad8dde1..f9f1d27275 100644
--- a/packages/fcl-pdf/src/fppdfscanner.pp
+++ b/packages/fcl-pdf/src/fppdfscanner.pp
@@ -586,6 +586,7 @@ Var
   lRes,lRawlen : Integer;
 
 begin
+  Result:='';
   aValue:=Char(aStartByte)+GetTillByte(Ord('>'));
   lRawlen:=Length(aValue) div 2;
   SetLength(Result{%H-},lRawLen);