From 779c80cca92530cd6025f29404dc559c1c7ac827 Mon Sep 17 00:00:00 2001
From: mhumm <markus.humm@gmail.com>
Date: Sun, 14 Apr 2019 11:08:58 +0200
Subject: [PATCH] Replaced SizeOf with Length

---
 jcl/source/vcl/JclGraphUtils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/jcl/source/vcl/JclGraphUtils.pas b/jcl/source/vcl/JclGraphUtils.pas
index d4aff254bd..9b617bda86 100644
--- a/jcl/source/vcl/JclGraphUtils.pas
+++ b/jcl/source/vcl/JclGraphUtils.pas
@@ -380,7 +380,7 @@ procedure GDIError;
 begin
   ErrorCode := GetLastError;
   if (ErrorCode <> 0) and (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, nil,
-    ErrorCode, LOCALE_USER_DEFAULT, Buf, SizeOf(Buf), nil) <> 0) then
+    ErrorCode, LOCALE_USER_DEFAULT, Buf, Length(Buf), nil) <> 0) then
     raise EOutOfResources.Create(Buf)
   else
     OutOfResources;