BoardGroupがpluginまで開放するように変更

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 17739a9..571747f 100644 (file)
--- 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;