请问我下面的查询语句，如何修改可以显示在DBGRID里(0分)

请问我下面的查询语句，如何修改可以显示在DBGRID里

procedure TFRMFILLFINDS.XP_Button1Click(Sender: TObject);
var i,j,k:integer;
s:tstringlist;
sql:string;
begin
s:=tstringlist.Create ;
for i:=0 to list1.Items.Count -1 do
if list1.Checked then
s.Add (list1.items);
if s.Count =0 then
begin
s.free;
exit;
end;
sql:=s[0];
for i:=1 to s.Count -1 do
sql:=sql+','+s;
sql:='select '+sql+' from fill';
frmfill.query2.SQL.Text :=sql;
frmfill.query2.Active :=true;

stringgrid1.ColCount :=frmfill.query2.FieldCount;
stringgrid1.RowCount:=1;
j:=0;
k:=0;
while not frmfill.query2.Eof do
begin
if list2.Checked[j] then
begin

for i:=0 to frmfill.query2.FieldCount -1 do
stringgrid1.Cells[i,k]:=frmfill.query2.fields.asstring;
k:=k+1;
stringgrid1.RowCount := stringgrid1.RowCount+1;

end ;
j:=j+1;
frmfill.query2.next;

StringGrid1.Visible:=true;
end;
frmfill.query2.Active :=false;

s.free;
end;