Crear procedure en Firebird desde delphi

[[duilioisola]]

tengo que bsucar la forma de que se genere el procedimiento

Pues no es el enfoque correcto.

Yo tengo una aplicación que trabaja con series. Las series las define el usuario y están en una tabla.
Tengo otra tabla que tiene la serie y un número.

Hago dos cosas:
En los triggers Before Insert verifico si el número es 0 o es nulo.
Si lo es, busco el número siguiente con un procedimiento como el que te he enviado..

En la parte Delphi tengo el método BeforePost del dataset.

Ahí hago algo parecido a esto:

Código Delphi [-]
begin
   if (DataSet.State=dsInsert) then
   begin
      DataSet.FieldByName('NUMERO').AsInteger := DameNumero(DataSet.FieldByName('SERIE'));
   end;
end;

DameNuero es un función que llama al procedimiento de la base que te envié antes.