Firebird - Cursor

CREATE OR ALTER PROCEDURE SP_LISTA_CIDADES
RETURNS (
   TXT_CIDADE VARCHAR(100)
)
AS
BEGIN

   FOR
      SELECT
         FIRST 50
         C.CODCIDADE AS CODIGO,
         C.DESCCIDADE
      FROM CIDADE C
      ORDER BY
         C.DESCCIDADE
      AS cursor curCIDADE
   do BEGIN

      TXT_CIDADE = :curCIDADE.CODIGO || ' - ' || :curCIDADE.DESCCIDADE;

      suspend;
   END

END