Fórum Parametro em Stored procedure #264384

Pessoal como faco para passar paramentros dentro do ibexpert e executar
tal bloco de comando referente ao paramentro vejam o que estou tentando fazer e esta dando erro:


BEGIN
as references wFuncao
if (:wFuncao = 1 ) then
BEGIN
insert into cadastro values(
:WCOD,
:WNOME,
:WENDERECO,
:WCIDADE,
:WESTADO);
END
ELSE
if (:wFuncao = 2) then
BEGIN
delete from cadastro where cadastro.cod =:WCOD;
END
ELSE
if (:wFuncao = 3) then
BEGIN
update cadastro set
cadastro.cod = :WCOD,
cadastro.nome = :WNOME,
cadastro.endereco = :WENDERECO,
cadastro.cidade = :WCIDADE,
cadastro.estado = :WESTADO
Where cadastro.cod = :WCOD;
END
END