Problema con un procedimiento almacenado

[Markoz]

Con este prodecimiento quiero pasar los datos de la tabla TmpVentas a HistVentas, ademas, otras variables como parametros quiero pasar, este es el SP

CREATE PROCEDURE PASADATOS (
DES NUMERIC (15, 2),
ABO NUMERIC (15, 2),
ANT NUMERIC (15, 2),
SUBTOT NUMERIC (15, 2),
PLA NUMERIC (2, 1),
FIN NUMERIC (2, 1))
RETURNS (
ARTICULO VARCHAR (80),
PRECIOVENTA NUMERIC (15, 2),
CLIENTE VARCHAR (50),
FECHA DATE,
CODFOLIO VARCHAR (2),
FOLIO INTEGER,
METODOVENTA VARCHAR (20),
VENTATOTAL NUMERIC (15, 2),
DESCUENTO NUMERIC (15, 2),
ABONO NUMERIC (15, 2),
ANTICIPO NUMERIC (15, 2),
SUBTOTAL NUMERIC (15, 2),
PLAZO NUMERIC (2, 1),
FINAN NUMERIC (2, 1))
AS
BEGIN
INSERT INTO HISTVENTAS(ARTICULO, PRECIOVENTA, CLIENTE, FECHA,
CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL, DESCUENTO,
ABONO, ANTICIPO, SUBTOTAL, PLAZO, FINAN)
SELECT ARTICULO, PRECIOVENTA, CLIENTE, FECHA,
CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL, :DESCUENTO,
:ABONO, :ANTICIPO, :SUBTOTAL, :PLAZO, :FINAN FROM TMPVENTAS;
DELETE FROM TMPVENTAS;
END

es llamado con este codigo en delphi, no manda ningun error.

TTmpVentas.close;
TTmpVentas.SelectSQL.Clear;
TTmpVentas.SelectSQL.add('Select * from PASADATOS(:DES, :ABO, :ANT, :SUBTOT, :PLA, :FIN)');
TTmpVentas.Params[0].asCurrency := Descuento;
TTmpVentas.Params[1].asCurrency := Abono;
TTmpVentas.Params[2].asCurrency := Anticipo;
TTmpVentas.Params[3].asCurrency := SumaPV;
TTmpVentas.Params[4].asCurrency := Plazo;
TTmpVentas.Params[5].asCurrency := Finan;
TTmpVentas.Prepare;
TTmpVentas.Open;