如何在删除listbox中item的同时删除数据库中的对应数据？

Question

listbox1 ，mulitselsct设置为true；点击删除的时候ListBox1.DeleteSelected;
      with adoquery1 do
  begin
      close;
      sql.clear;
      sql.add('delete from notices(content) where 这里应该什么写');
      execsql;
  end
===================================================
或者哪位高手告诉我更好的写法  谢谢

Answer 1

sql.add('delete from notices(content) where treename='+ListBox1.DeleteSelected.Text);

Answer 2

问题已经解决！！！
procedure Tmain_1.Button20Click(Sender: TObject);
var str:string; i:integer;
begin
  for i:=0 to listbox1.Count-1 do
  begin
    if listbox1.Selected[i] then
    begin
   with adoquery1 do
  begin
    close;
    sql.Clear;
    str:='delete from notices where content='''+
      listbox1.Items[i]+'''';
    showmessage(str);
    sql.Add(str);
    execsql;
  end;
    end;
  end;
  ListBox1.DeleteSelected;