Fórum Retorno de um Strore procedure em DBGrig e possível #186602

Sou inicante, e tenho muitas duvidas.
Estou usando FireBird e DBExpress

Tenho um formulário de pesquisa que entra através de um edit

Esta e a Store procedure

CREATE PROCEDURE CONS_PROD (
VNOME VARCHAR (40))
RETURNS (
CODIBARRA VARCHAR (20),
NOMEPRO VARCHAR (40))
AS
/*declare variable barra varchar(20);
declare variable nomeprodu varchar(40);*/

begin

for select pdt_codbar, pdt_nome from produtos

/*Where Upper(pdt_Nome) Like Upper(:vnome)*/

WHERE pdt_nome like ´¬´||:vnome || ´¬´
order by pdt_nome

into :codibarra, :nomepro do


suspend;
end


Esta e a procedure do Botão PESQUISAR

procedure TformConProdutos.SpeedButton1Click(Sender: TObject);
var
vnome : string;

begin

dm.SQLConProdutos.CommandText:= ´select * from cons_prod´;
dm.SQLCONPRODUTOS.ParamByName(´VNome´).AsString :=Edit1.Text;

end;

para onde vai nos dados