Firebird 1.5 Soporta Case When else end?

[IcebergDelphi]

Tambien ya probe asi:

Código SQL [-]

  case  "Producto"."P_PeriodoDescripcion"
          when 'SEMANAL' THEN 'S'  end as Frecuencia_Pagos,

Y me da el siguiente error:
Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 12, char 25.
.
el error se produce aqui:

"Producto"."P_PeriodoDescripcion"


Saludos y gracias.