Problema con adocommand stored procedure

[buffygcs]

Hola tengo un procedimiento almacenado:

CREATE PROCEDURE busca_pais
@pais_buscado varchar(5)

AS
if @pais_buscado is null
begin
raiserror('Codigo de pais con valor en blanco, Verifique!',14,1)
return
end

select setctps_desc
from setctps
where pais_code = @pais_buscado
GO

Y tengo el siguiente codigo en delphi

principal.adocommand.CommandType:= cmdStoredProc;
principal.adocommand.CommandText:= 'busca_pais';
principal.adocommand.Parameters.Refresh;

principal.adocommand.Parameters.ParamByName('@pais_buscado').Value:= pais;
principal.adocommand.Execute;
resultado:=principal.command2.Parameters.ParamValues['@RETURN_VALUE'];

El problema es que resultado siempre es "0" no se porque, intente hacer lo mismo con adoprocedure pero me dice que no se puede realizar debido a que el dataset esta cerrado , espero que alguien me pueda decir quee estoy haciendo mal, gracias