Fórum selecionar registro em um dbgrid #330996

Boa tarde colegas,

Gostaria se possível alguém me ajudasse a resolver o seguinte problema:

Ao exibir os registro de uma tabela utilizando sql em um dbgrid quando tento selecionar um registro utilizando a tecla <ENTER> para exibir para o cliene ele só pega o primeiro registro da tabela.

Segue abaixo o código:

procedure Tf_pesquisa.FormShow(Sender: TObject);
begin
abandona:=false;
query_pesquisa.sql.Clear;
query_pesquisa.SQL.Text:=´SELECT CODIGO,DESCR,PRECO FROM PRODUTO WHERE DESCR LIKE(´+
quotedstr(xpesquisa+´¬´)+ ´)´;
query_pesquisa.ExecSQL;
query_pesquisa.open;
if query_pesquisa.recordcount = 0 then
begin
abandona:=true;
showmessage (´Produto não cadastrado´);
query_pesquisa.Close;
f_pesquisa.close;
end;
end;


no evento keypress do dbgrid estou tentando pegar o registro ao pressionar enter

procedure Tf_pesquisa.db_pesquisaKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
abandona:=false;
KEY:=0;
f_venda.xcodigo:=query_pesquisa.fieldbyname(´codigo´).Asfloat;
f_venda.xnomepro:=query_pesquisa.fieldbyname(´descr´).AsString;
f_venda.xvalor:=query_pesquisa.fieldbyname(´preco´).Asfloat;
f_venda.mostra_produto;
f_venda.grava_itens;
// Caption := db_pesquisa.SelectedField.FieldName;
f_pesquisa.close;
end
else
KEY:=0;
end;

Sem mais para o momento agradeço antecipadamente