如何把查询后的结果放入Tchecklistbox中......

[aspcomputer]

.....
checklistbox:Tchecklistbox;
.....
query1.close;
query1.sql.clear;
query1.sql.add('select name from testdb');
query1.open;
..
我怎样能把满足条件的纪录放入Tchecklistbox中，以便我可以复选其中的纪录，以后用！谢谢了！

[macro_love]

for i:=0 to Query1.recordCount-1 do
begin
CheckListBox.items.add(Query1.FieldByName('Name').asstring);
Query1.next;
end;

[macro_love]

首先要将Query1.first