listview多记录选择删除的问题(50分)

数据格式
编号（ＢＨ） 人员(xm)
001 abc
002 efg
载入数据时，并设置了check为ＴＲＵＥ；
var
ListItem: TListItem;
begin
//填充表格
listview1.Items.clear;
ADOQuery1.First ;
while not ADOQuery1.Eof do
begin
ListItem := listview1.Items.Add;
ListItem.Caption :=ADOQuery1.fieldbyname('bh').Value;
ListItem.SubItems.Add(ADOQuery1.fieldbyname('xm').Value);
ADOQuery1.Next;
end;


现在我的问题是如何删除ＬＩＳＴＶＩＥＷ中选择为真的记录
谢谢！

for i := 0 to listview.items.count - 1 do
if listview.items.selected then
strBH := strBH + trim(listview.items.caption);
ADOQuery1.close;
ADOQuery1.sql.clear;
ADOQuery1.sql.add('delete from tablename where BH in (''' + strBH + '''');
ADOQuery1.execsql;
---------
大概就是这样了

check为ＴＲＵＥ是什么意思？
if listview1.Items.Checked then不行吗？

为真意思是CHECK选择，
即复选框里打个勾

多人接受答案了。