Fórum duvida delphi passando informaçao para DBGrid #603321

galera mais uma vez boa noite, tenho este codigo onde pesquiso um produto quando aparece na grid clico
encima para ir para os edit so que as informaçoes nao estao indo, testei em outro pc ja com o executavel
gerado as vezes funciona e as vezes da o mesmo problema, pensei ser meu pc formatei e continua o mesmo
no pc com o fonte nao funciona mas no outro as vezes da certo, se alguem ja passou por isso tambem qualquer ajuda
seria otimo obrigado.

procedure TF_pdv.txt_pro_nomeKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
vk_f2 :
begin
f_pdv_produtos := Tf_pdv_produtos.Create(Self);
f_pdv_produtos.ShowModal
end;

end;
end;

procedure TF_pdv.txt_pro_nomeKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
txt_pro_qtd.SetFocus;
begin
with dm.sql_produtos do
begin
close;
sql.Clear;
sql.Add('select * from produtos');
sql.Add('where pro_nome like :produtos');
ParamByName('produtos').Value := txt_pro_nome.Text + '%';
open;
if RecordCount > 0 then
begin
dbg_listarprodutos.Visible := true;
dbg_listarprodutos.SetFocus;
end;

end;
end;

end;