From f17329bc7ca07de58ce38ffe859d5c932435cc06 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 5 Mar 2008 02:45:54 +0000
Subject: [PATCH] fixed wrong assumption in 14401

git-svn-id: trunk@14413 -
---
 lcl/ldockctrl.pas | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lcl/ldockctrl.pas b/lcl/ldockctrl.pas
index a4fe392274..b0f9d200a9 100644
--- a/lcl/ldockctrl.pas
+++ b/lcl/ldockctrl.pas
@@ -143,6 +143,7 @@ type
     FRoot: TLazDockConfigNode;
   public
     constructor Create(const ADockerName: string; ANode: TLazDockConfigNode);
+    destructor Destroy; override;
     procedure WriteDebugReport;
     property DockerName: string read FDockerName;
     property Root: TLazDockConfigNode read FRoot;
@@ -1893,7 +1894,6 @@ begin
   Layout:=GetLayoutFromControl;
   if (Layout=nil) then exit;
   Manager.AddOrReplaceConfig(DockerName,Layout);
-  Layout.Free;
 end;
 
 procedure TCustomLazControlDocker.RestoreLayout;
@@ -3916,6 +3916,12 @@ begin
   FRoot:=ANode;
 end;
 
+destructor TLazDockerConfig.Destroy;
+begin
+  FRoot.Free; // who will clear it else?
+  inherited Destroy;
+end;
+
 procedure TLazDockerConfig.WriteDebugReport;
 begin
   DebugLn(['TLazDockerConfig.WriteDebugReport DockerName="',DockerName,'"']);