TWebBrowserの参照カウントが正しくなるように修正

[gikonavigoeson/gikonavi.git] / ListViewUtils.pas

diff --git a/ListViewUtils.pas b/ListViewUtils.pas
index a0ad672..59612e8 100644 (file)
--- a/ListViewUtils.pas
+++ b/ListViewUtils.pas
@@ -572,7 +572,7 @@ begin
                        BoardCnt := 0;
        end;
 
-       if (BoardCnt <= 0) or (Item = nil) or (Item.Index > BoardCnt)
+       if (BoardCnt <= 0) or (Item = nil) or (Item.Index >= BoardCnt)
                or (ListView.Items.Count = 0) or (not (Board.Items[Item.Index] is TThreadItem)) then Exit;
 
        //\89ü\91P\82·\82×\82«\83u\83\8d\83b\83N/////////////////////////////////////////////////////