Вызов хранимой процедуры firebird из delphi

SET TERM ^ ;
 
CREATE OR ALTER PROCEDURE SP_FROUP_TOVAR_INS ( ID INTEGER, NAME_GROUP_TOVAR TYPE OF NAIMES)
AS      
BEGIN
  INSERT INTO sp_froup_tovar (id,name_group_tovar)
  VALUES (:id,:name_group_tovar);
END

SET TERM ^ ;
 
CREATE OR ALTER PROCEDURE PROC_SP_FROUP_TOVAR (
    P_ID INTEGER NOT NULL,
    P_NAME_GROUP_TOVAR "NAMES" NOT NULL)
AS
BEGIN
 IF (:p_id<0) THEN
  BEGIN
     INSERT INTO sp_froup_tovar (id, name_group_tovar )
     VALUES (:p_id,:p_name_group_tovar);
  END
  ELSE
   BEGIN
      UPDATE
        sp_froup_tovar
      SET
      id= :p_id,
       name_group_tovar=:p_name_group_tovar
       WHERE
       id=:p_id;
   END
END^

CREATE SEQUENCE GEN_SP_FROUP_TOVAR_ID;
 
ALTER SEQUENCE GEN_SP_FROUP_TOVAR_ID RESTART WITH 0;

SET SQL DIALECT 3;
 
CREATE GENERATOR GEN_SP_FROUP_TOVAR_ID;
 
SET TERM ^ ;
 
 
 
CREATE OR ALTER TRIGGER SP_FROUP_TOVAR_BI FOR SP_FROUP_TOVAR
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.id IS NULL) THEN
    NEW.id = gen_id(gen_sp_froup_tovar_id,1);
END
^
 
 
SET TERM ; ^

IF (NEW.id IS NULL) THEN
 NEW.id = gen_id(gen_sp_froup_tovar_id,1);

INSERT INTO sp_froup_tovar (id, name_group_tovar )
 VALUES (:p_id, :p_name_group_tovar);

IF (NEW.id IS NULL) THEN