デバッグ用のコードが入ってたので削除

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 8d52779..445078e 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -674,8 +674,6 @@ begin
 end;
 
 procedure TCategory.Delete(index: integer);
-var
-       i : integer;
 begin
        if (Items[index] <> nil) then begin
                try
@@ -684,7 +682,6 @@ begin
                        else
                                TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;
                except
-                       i :=index;
                end;
        end;
        inherited Delete(index);