From d9637b02d42cfd4cfd88b9e707da8bb26f926973 Mon Sep 17 00:00:00 2001
From: Juha <juha@lazarus-ide.org>
Date: Mon, 5 Jun 2023 21:54:26 +0300
Subject: [PATCH] LCL: Restore a wrapper for FreeThenNil in LCLProc as
 deprecated.

---
 lcl/lclproc.pas | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/lcl/lclproc.pas b/lcl/lclproc.pas
index 9b6ab9df5d..a587144bbd 100644
--- a/lcl/lclproc.pas
+++ b/lcl/lclproc.pas
@@ -109,6 +109,8 @@ var
 
 function SendApplicationMessage(Msg: Cardinal; WParam: WParam; LParam: LParam):Longint;
 procedure OwnerFormDesignerModified(AComponent: TComponent);
+// Deprecated in version 2.3, 2023-06.
+procedure FreeThenNil(var obj); deprecated 'Use LazUtilities.FreeThenNil instead';
 
 { the LCL interfaces finalization sections are called before the finalization
   sections of the LCL. Those parts, that should be finalized after the LCL, can
@@ -828,6 +830,11 @@ begin
   end;
 end;
 
+procedure FreeThenNil(var obj);
+begin
+  LazUtilities.FreeThenNil(obj);
+end;
+
 procedure RegisterInterfaceInitializationHandler(p: TProcedure);
 begin
   InterfaceInitializationHandlers.Add(p);