From 0edeb273912f4b5907562fbe2c47abe30e783698 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 20 Nov 2004 13:14:40 +0000
Subject: [PATCH] =?utf8?q?=E3=83=87=E3=83=90=E3=83=83=E3=82=B0=E7=94=A8?=
 =?utf8?q?=E3=81=AE=E3=82=B3=E3=83=BC=E3=83=89=E3=81=8C=E5=85=A5=E3=81=A3?=
 =?utf8?q?=E3=81=A6=E3=81=9F=E3=81=AE=E3=81=A7=E5=89=8A=E9=99=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 BoardGroup.pas | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 8d52779..445078e 100644
--- 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);
-- 
2.11.0