delphi 遇到问题，通过listbox达到在数据库中的删除操作

下面的过程想实现通过按钮将与edit5.text和listbox5中选中的值关联的数据库SC表中的数据删除
初学delphi，对语言了解不深刻，细节上把握不好。
烦高手帮我看一下下面这段代码哪里有问题。感激不尽啊procedure TForm1.Button8Click(Sender: TObject);
var i:integer;
begin
    for i:=0 to listbox5.count-1 do
    begin
      if listbox5.Selected[i] then
      begin
      Query8.close;
      Query8.SQL.Clear;
      Query8.SQL.text   :=   'delete  sc where sname=:value1 and cname=:value2 ';
      Query8.params[0].value:=edit5.text;
//好像是下面的问题，我对赋值的理解不对，希望高手能点一下
      Query8.params[1].value:=listbox5.items.strings[i];
      Query8.ExecSQL;
      end;
  //  点击按钮后对listbox5中数据清空   
      ListBox5.clear;
      showmessage('在数据库中删除成功');
    end;
end;