[Saltamontes]

Buenos(as) DIas/Tardes/Noches

Estoy trabajando en un proyectito con Delphi7 e InterBase 6, la cosa es que intento ejecutar un procedimiento almancenado y me salen errores al momento de ejecutarlo desde el delphi, porque no me muestran errores de sintaxis, el codigo del query en Delphi es:

Código Delphi [-]
pinventario := txt_inventario.Text; 
pmarca := txt_marca.Text; 
pmodelo := txt_modelo.Text; 
pserie := txt_serie.Text; 
pdescripcion := txt_descripcion.Text; 
pprecio := strToFloat(txt_precio.Text); 
pedofunc := txt_edofunc.Text; 
ptitular := txt_titular.Text; 
pfecha := DateToStr(DTPfecha.Date); 
pidArea := DBLCBox_Areas.KeyValue; 
DM.IBQ_Inventario.Close;
DM.IBQ_Inventario.SQL.Clear;
DM.IBQ_Inventario.SQL.Add('execute procedure PR_Ins_InvCatArea("' + pinventario + '"," + pmarca + "," + pmodelo + "," + pdescripcion + "," + pprecio + "," + pedofunc + "," + pfecha + "," + pidArea + "," + ptitular + ")');
DM.IBQ_Inventario.ExecSQL;
DM.IBQ_Inventario.Open;

y el procedimiento hecho en el InterBAse 6 es:

Código Delphi [-]
set term !!;
create procedure PR_Ins_InvCatArea(pinventario VARCHAR(12),pmarca VARCHAR(20),pmodelo VARCHAR(20),pserie VARCHAR(20),pdescripcion VARCHAR(50), pprecio FLOAT, pedofunc VARCHAR(15), pfechainv DATE, pidArea integer ,pdepositario VARCHAR(70))
as
  declare variable vidInventario integer;
Begin
insert into Inventario (Inventario,Marca,Modelo,Serie, Descripcion, Precio,EdoFuncional, Fecha_Inv)
          VALUES(:qinventario,:qmarca,:qmodelo,:qserie,:qdescripcion,:qprecio,:qedofunc,:qfechainv);

  select idInventario from Inventario where Inventario = :qinventario into :vidInventario;
  insert into Inv_CatAreas VALUES(:qidArea,:vidInventario,:qdepositario);
End!!
set term ;!!

y ya lo ejecute en el Interbase y si se deja, pero desde delphi no,
inclusive intente "insert into PR_Ins_InvCatArea VALUES(parametros)"
y pos tampoco.

Les agradezco su tiempo y la asesoria que me puedan brindar.
Sales pues
Nos vemos