使用CHEAKLISTBOX求解啊。(0分)

我的窗体有两个CHEAKLISTBOX,改成例如将数据库的字段读入到CHEAKLISTBOX1里
,当选择CHEAKLISTBOX1里面的某个或多个字段之后,将数据库的记录读入到CHEAKLISTBOX2里
,如果用户在CHEAKLISTBOX1选择多个字段,或在CHEAKLISTBOX2选择多个记录的时候,
都能查询出来将数据显示在DBGRID里,但是我的查询语句出了错,请问如何修改才可以实现
啊这个功能啊, 谢谢大家

procedure TForm1.Button4Click(Sender: TObject);
var
j,k,wherecount,wherecount1:integer;
begin
wherecount:=0;
query1.Close;
query1.SQL.Clear ;
query1.SQL.Text :='select * from fwork where';
for j:=0 to list1.Items.Count -1 do
begin
if list1.Checked[j] then
begin
if wherecount <> 0 then
begin
query1.SQL.Add('and');
wherecount:=1;
end;
query1.SQL.Add(list1.Items.Strings[j]+'in(');//程序说这里的IN为不可识别的
函数，请问什么修改啊。
end;
wherecount1:=0;
for k:=0 to list1.Items.Count -1 do
begin
if list2.Checked[k] then
begin
if wherecount1 <> 0 then

query1.SQL.Add(',');
wherecount :=1;

query1.SQL.Add(''''+list2.Items.Strings[k]+'''');
end;
end;

query1.SQL.Add(')');
query1.Open;
end;
end;
End.