Fórum Stored Proc - Ado #206911

create or replace procedure selecuser
( p_idusuario in number,
nome out usuario.nome¬type,
idcidade out usuario.idcidade¬type,
idlocalatend out usuario.idlocalatend¬type,
telefone out usuario.telefone¬type,
sexo out usuario.sexo¬type,
estadocivil out usuario.estadocivil¬type,
carencia out usuario.carencia¬type,
credito out usuario.credito¬type,
codigoemp out empresas.codigo¬type,
razaosocialemp out empresas.razaosocial¬type,
matriculacoop out cooperativas.matricula¬type,
nomecoop out cooperativas.nome¬type,
pgaluguel out usuario.pgaluguel¬type,
fonecontato out usuario.fonecontato1¬type,
spc out usuario.spc¬type
)
is
begin
select u.nome, u.idcidade,u.idlocalatend,u.telefone,u.sexo,
u.estadocivil, u.carencia, u.credito,e.codigo, e.razaosocial,
c.matricula,c.nome,u.pgaluguel,u.fonecontato1,u.spc

into nome,idcidade,idlocalatend,telefone,sexo,
estadocivil,carencia,credito,codigoemp,razaosocialemp,
matriculacoop,nomecoop,pgaluguel,fonecontato,spc

from usuario u,cooperativas c, empresas e
where u.idusuario = p_idusuario
and u.idcooperativas= c.idcooperativas
and u.idempresas= e.idempresas;

end;


Minha chamada no delphi

with spuser do
//2
begin
close;
Parameters.ParamByName(´P_IDUSUARIO´).value:=vidvalue;
execproc;
finscuser.edtcodigocidade.Text:=Parameters.ParamByName(´idcidade´).value;
end;




erro: erro na especificao


o que significa isso??

evandro