Problema para borrar desde DBLookUpListBox

[sac]

Amigos a ver si me pueden ayudar.
Cada vez que un cliente compra mas de un articulo Se va sumando la compra para saber cuanto cobrar cuando termine de comprar. Ésto lo identifico de una compra anterior con un "Cod_Ventas".
Quiero que me ayuden a saber como hacer para borrar cuando se arrepienten de comprar un articulo sumado.
Estoy tratando de ver todos los articulos de ese "Cod_Ventas" en un DBLookuplistbox para seleccionarlo y borrarlo para después seguir con éste cliente.
Mi Consulta SQL es ésta:

Código Delphi [-]
  Q_Borrar.Close;
  Q_Borrar.SQL.Clear;
  Q_Borrar.SQL.Add('Select Cod_Ventas, Vta_Articulo, Cantidad, Total_Gasto');
  Q_Borrar.SQL.Add('From Libreria_Venta');

  Q_Borrar.sql.add('where Cod_Ventas =:PCod');
  Q_Borrar.sql.add('order by Vta_Articulo');
  if not Q_Borrar.Prepared then
           Q_Borrar.Prepare;
  Q_Borrar.parambyname('PCod').asInteger:= StrToint(edit3.text);
  Q_Borrar.Open;
  Q_Borrar.First;
  DBLookUpListBox1.ListSource:=DS_Borrar;
  DBLookUpListBox1.KeyField:='Cod_Ventas';

Gracias.