[firebase-br] STORED PROCEDURE

[Chiga]

Olá, preciso de uma ajuda, estou fazendo uma procedure de consulta mas 
não consigo enxergar o erro:

create procedure sp_cons_eventos(cod_evento integer)
AS
begin
  if (:cod_evento is null) then
  begin
    select cod_evento, data, hora, obs from eventos
    order by data;
  end else
  begin
    if (:cod_evento is not null) then
    begin
        select COD_EVENTO, DATA, HORA, OBS from eventos
        where cod_evento = :cod_evento;
    end
  end
suspend;
end

Se alguém puder me ajudar por favor, trabalho com SQLServer e estou 
começando a desenvolver com Firebird.

Abraços,
Chiga.