From 6d808123c9ee57cc0121461b02198518608e4a11 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 25 Jun 2005 13:01:10 +0000
Subject: [PATCH] =?utf8?q?BoardGroup=E3=81=8Cplugin=E3=81=BE=E3=81=A7?=
 =?utf8?q?=E9=96=8B=E6=94=BE=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB?=
 =?utf8?q?=E5=A4=89=E6=9B=B4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 BoardGroup.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 17739a9..571747f 100644
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -1960,10 +1960,19 @@ var
 	i	: Integer;
 begin
 	for i := Self.Count - 1 downto 0 do begin
-    	TBoard(Self.Objects[i]).Free;
+		try
+			TBoard(Self.Objects[i]).Free;
+		except
+		end;
     end;
     inherited Clear;
-    Self.Capacity := 0;
+	Self.Capacity := 0;
+	try
+		if FBoardPlugIn <> nil then
+			FBoardPlugIn.Free;
+	except
+	end;
+
 end;
 
 
-- 
2.11.0