帮忙看下代码有什么问题

有一个listbox,值为a,b,c,d,e,f 两个checklistbox，第一个的值全为1，第二个的值全为2
得到记录的格式如下：
a b c d e f
1 1 1 2 2 2，
记录显示在dbgrid中，
现在我想双击记录，checklistbox中相应的值就打勾
请问下面的代码有什么问题呢？为什么双击了记录没有反应procedure TForm1.DBGrid1DblClick(Sender: TObject);
var i:integer;
begin
with dbgrid1 do begin
for i:=0 to listbox1.Items.Count-1 do
  begin
    checklistbox1.Checked[i] := checklistbox1.Items.Strings[i]=fields[i].AsString;
    checklistbox2.Checked[i] := checklistbox2.Items.Strings[i]=Fields[i].AsString;
  end;
end;
end;