como hago este stored procedure

[edy_aca]

hola muy buen dia y de antemano muchas gracias por tu valiosa ayuda, veraz mi problema consiste en lo siguiente, yo soy programador de vfp que desde hace unos meses utiliza Delphi con Interbase & Firebird, y tengo este problema:

esto hacia en vfp

SELECT IIF(almacen="ENTRADA",CANTIDAD,CANTIDAD*-1.0) SALDO_INICIAL FROM MOV_ALMACEN

con la linea anterior lo que sucedia, era que sobre la tabla MOV_ALMACEN se creaba una consulta y esta con un campo llamado SALDO_INICIAL que sellenaba registro a registro como POSITIVO en caso de que el campo almacen fuera :almacen="ENTRADA" y NEGATIVO en cualquier otro caso. como ven existe la funcion IIF().

Esto mismo lo quise hacer en Delphi con Interbase & Firebird asi que empece a ha hacerlo por medio de STORED PROCEDURES pero he hecho muchas combinaciones de codigo y realmente no me sale te agradezco mucho tu ayuda solo lo bueno de mi codigo es esto :

CREATE PROCEDURE saldo_inicial
AS
DECLARE VARIABLE saldo DOUBLE PRECISION;

BEGIN
FOR SELECT CANTIDAD FROM MOV_ALMACEN INTO :saldo DO
BEGIN

END
END