含有CheckListBox的窗体退出时出现内存错误 (问题已解决，来个人好结束帖子) (50分)

窗体上有个listview和一个checklistbox。
点选listview的item时查找数据，并根据查找结果在checklistbox的对应项目上打勾。
出现错误现象为，如果什么也没查到，checklistbox中没有打上勾，那么退出窗体一切
正常，如果查找到数据，checklistbox打上了几个勾，那么退出时出现内存地址错误。
代码如下：
procedure Tfm_LoginUser_Managment.ListView1SelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
var
i, Index: Integer;
begin
Speedbutton2.Tag := 0;
SpeedButton3.Tag := 0;
for i := 1 to CheckListBox1.Items.Count do
CheckListBox1.Checked[i - 1] := False;
Edit1.Text := Item.Caption;
Edit2.Text := Item.SubItems.Strings[1];
ADODataSet1.Close;
ADODataSet1.CommandText := 'Select Power_List.命令 From Power_List,User_Power_List Where Power_List.id=User_Power_List.权限id And User_Power_List.用户id=' + Item.SubItems.Strings[0];
ADODataSet1.Open;
for i := 1 to ADODataSet1.RecordCount do
begin
Index := CheckListBox1.Items.IndexOf(ADODataSet1.FieldByName('命令').AsString);
if Index <> -1 then
CheckListBox1.Checked[Index] := True;
ADODataSet1.Next;
end;
ADODataSet1.Close;
end;
百思不得其解.....会不会和我刚装的GExpert2.4.1有关？

问题解决了。怎么删除不了？
我的分啊。55555

我来了

唉。便宜你啦