[pepe1853]

Buenas tardes , les comento mi inquietud no encuentro manera de ejecutar mi consulta update
al ejecutarla parece que funciona todo bien con el mensaje de una supuesta inserción, pero luego me figura el siguiente error Token unknow - line1, colum9 SET

Código Delphi [-]
procedure TForm4.btnAceptarClick(Sender: TObject);

   var
    pro_IDproducto:String;
    pro_Nombre: String;
    pro_IDproveedor: String;
    pro_precioventa: String;
    pro_preciocosto: String;
    pro_stock: String;
    pro_estado: String;
    pro_categoria: String;
    consulta: String;

    begin
    pro_IDproducto:= DBEdit8.Text;
    pro_nombre:= DBENombre.Text;
    pro_IDproveedor:= DBEdit1.Text;
    pro_precioventa:= DBEPVenta.Text;
    pro_preciocosto:= DBEPCosto.Text;
    pro_stock:= DBEStock.Text;
    pro_estado:= DBEEstado.Text;
    pro_categoria:=DBECategoria.Text;


consulta:='UPDATE PRODUCTOS SET PRO_IDPROVEEDOR=:'+pro_IDproveedor+', PRO_NOMBRE=:'+pro_nombre+', PRO_PRECIOVENTA=:'+pro_precioventa+',
PRO_PRECIOCOSTO=:+'pro_preciocosto+', PRO_STOCK=:'+pro_stock+', PRO_ESTADO=:'+pro_estado+', PRO_CATEGORIA=:'+pro_categoria+' WHERE PRO_IDPRODUCTO=:'+pro_IDproducto+'';

    SQLQPROVEEDORES.SQL.text:=consulta;
    SQLQPROVEEDORES.ExecSQL;
    SQLQPROVEEDORES.ApplyUpdates;
    ShowMessage(consulta);

Espero por favor que alguien me pueda auxiliar! Gracias de antemano.

creo que lo publique en el sector equivocado al tema,por favor alguien lo podría mover si es así gracias!