请教关于反选的问题 ( 积分: 100 )

我使用了一个speedbutton控件 进行反选功能 部分原代码如下
//0:全选 1:全清 2:反选
procedure TFrmSectStat.doCheckListBox(chk: TCheckListBox;
opertype: integer);
var i:integer;
begin
if opertype = 0 then
begin
for i := 0 to chk.Items.Count -1 do
begin
chk.Checked := true;
end;
end
else if opertype = 1 then
begin
for i := 0 to chk.Items.Count -1 do
begin
chk.Checked := false;
end;
end
else if opertype = 2 then
begin
for i := 0 to chk.Items.Count -1 do
begin
chk.Checked := not chk.Checked;
end;
end;
end;
结果是 全选和全清都能正常使用 ，而反选使用时，界面上 倒是反选成功了 不过导出数据
报错，请问是什么原因

请把问题说清楚，导出数据出现什么错误，以及你是怎么样来导出数据的？