procedure TForm1.Button1Click(Sender: TObject);
var ss:String;i:integer;
begin
for i:=0 to CheckListBox1.Count-1do
if CheckListBox1.Checked then
begin
ss:= checklistbox1.itemS[checklistbox1.itemindex];
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into table1 ') ;
ADOQuery1.SQL.Add('('+quotedstr(ss)+')');
ADOQuery1.ExecSQL;
end;
Form4.QuickRep1.DataSet:=dataset1;
form4.QuickRep1.preview;
end;