Cursor not returned from Query

[Antoniov]

Estoy usando Delphi XE y firebird 2.5.


Intento poner un StoredProc y me da el error "Cursor not returned from Query"

El procedimiento almacenado es muy simple, sólo tiene que devolver el siguiente código y funciona perfectamente porque lo he probado directamente desde la base de datos.

Código SQL [-]
CREATE PROCEDURE SIGUIENTE_COD_MENSAJE
RETURNS(
  NEXT_CODIGO INTEGER)
AS
BEGIN
  set NOCOUNT  ON;
  NEXT_CODIGO = GEN_ID(MENSAJES_CODMENSAJE_GEN, 1);

  SUSPEND;
END
;

Pero cuando lo pongo en Delphi y le quiero poner la propiedad "Active = TRUE" directamente en el DataModule, salta el dichoso error.

Uso tanto el SQLStoredProc como el TSQLDataSet y en todos da un error.
Esto lo usaba antes en Delphi 7 y funcionaba sin problemas.

Alguna sugerencia?