Problema con procedimiento almacenado

[XBart]

Gracias por adelantado por su atencion, ahora, el problema es el siguiente:

uso firebird 1.5 y delphi sp2 con ibx

tengo un procedimiento almacenado(SP) el cual debe de verificar si una ciudad ya existe en la base de datos, en su respectiva tabla ciudad, y debe de regresar un resultado, el asunto es que no me regresa el resultado correcto, supongo que por mala escritura de la SP, a qui pongo el codigo de la sp, agradesco de antemano cualquier ayuda....

 SET TERM ^ ;
 
 CREATE PROCEDURE SP_VERIFICA_CIUDAD (
 	NOMBRE VARCHAR(40))
 RETURNS (
 	RESULTADO INTEGER)
 AS
 DECLARE VARIABLE CODIGO INTEGER;
 DECLARE VARIABLE NOMBREVAR VARCHAR(10);
 begin
   SELECT CIUDADKEY, CIUDADNOMBRE FROM CCIUDAD
   WHERE CIUDADNOMBRE=:nombre
   into :codigo, :nombrevar;
   if (nombrevar='') then
 	 resultado=0;
   else
 	 resultado=1;
 
   suspend;
 end
 ^
 
 SET TERM ; ^