From 6940c94333dfc25cc9f5abbe6a47ca785f41199e Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Thu, 29 Feb 2024 11:11:50 -0300
Subject: [PATCH] Overload to allow a new constructor in the derived class, but
 allowing to call the base constructor.

---
 packages/rtl/src/sysutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/rtl/src/sysutils.pas b/packages/rtl/src/sysutils.pas
index 2c18bfe..397f964 100644
--- a/packages/rtl/src/sysutils.pas
+++ b/packages/rtl/src/sysutils.pas
@@ -123,7 +123,7 @@ type
     class var
       LogMessageOnCreate : Boolean;
   Public
-    constructor Create(const Msg: String); reintroduce;
+    constructor Create(const Msg: String); reintroduce; overload;
     constructor CreateFmt(const Msg: string; const Args: array of const);
     constructor CreateHelp(const Msg: String; AHelpContext: Integer);
     constructor CreateFmtHelp(const Msg: string; const Args: array of const; AHelpContext: Integer);