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