[guillotmarc]

Es muy sencillo. Solo tienes que añadir un parámetro de salida (los parámetros más habituales són los de entrada) :

Ejplo. :

SET TERM ^ ;
 
CREATE PROCEDURE "Anadir_Cliente" (NOMBRE VARCHAR(50), APELLIDOS VARCHAR(50))
RETURNS (ID INTEGER)
AS
begin
ID = gen_id(Generador_CLIENTE, 1);
 
insert into CLIENTES (ID, NOMBRE, APELLIDOS) values (:ID, :NOMBRE, :APELLIDOS);
end
^
 
SET TERM ; ^

Ejplo. de utilización en Delphi, y recuperación del código :

function Anadir_Cliente(Nombre: string; Apellidos: string): integer;
begin
  spAnadir_Cliente.Params.ParamValues['NOMBRE'] := Nombre;
  spAnadir_Cliente.Params.ParamValues['APELLIDOS'] := Apellidos;
  spAnadir_Cliente.ExecProc;
  Result := spAnadir_Cliente.Params.ParamValues['ID'];
end;

Saludos.