From b4ae83569f72cde97e94b661803d1b9eb64ce11e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 25 Feb 2023 13:32:55 +0100
Subject: [PATCH] docking, initialize a `var` parameter used as result

it's not `out` so there is no guarantee that the caller
has initialized it.
---
 src/u_main.pas | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/u_main.pas b/src/u_main.pas
index 9c7a2e2e..17e07dc3 100644
--- a/src/u_main.pas
+++ b/src/u_main.pas
@@ -1620,6 +1620,7 @@ procedure TMainForm.anchorDockingAddControlEvent(Sender: TObject; aName: string;
             var AControl: TControl; DoDisableAutoSizing: boolean);
 var w : TDexedWidget;
 begin
+  AControl := nil;
   for w in fWidgList do
     if w.name = aName then
     begin