Devolver código de error de una transacción

[kikodelphi]

gracias a ambos por las respuestas.
¿cuales son las diferencias que ven ustedes a mi forma de plantearlo?
Yo a simple vista veo que hace exactamente lo mismo.
¿porque return(1) o return(90)? Para capturar desde el programa ? con un valor de función ???