From 9f7177574f81f7c45d6e739d712df479684b58c0 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Thu, 26 Apr 2018 14:09:43 +0000
Subject: [PATCH] AnchorDocking: Take care of Nil Control in function
 GetDockSplitter. Issue #33608, patch from BBaz.

git-svn-id: trunk@57726 -
---
 components/anchordocking/anchordocking.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/anchordocking/anchordocking.pas b/components/anchordocking/anchordocking.pas
index ff40e59c4f..41a0896483 100644
--- a/components/anchordocking/anchordocking.pas
+++ b/components/anchordocking/anchordocking.pas
@@ -927,7 +927,7 @@ function GetDockSplitter(Control: TControl; Side: TAnchorKind; out
 begin
   Result:=false;
   Splitter:=nil;
-  if not (Side in Control.Anchors) then exit;
+  if not assigned(Control) or not (Side in Control.Anchors) then exit;
   Splitter:=TAnchorDockSplitter(Control.AnchorSide[Side].Control);
   if not (Splitter is TAnchorDockSplitter) then begin
     Splitter:=nil;