Erro codigo delphi xe7

Alguem pode me ajudar com este erro.


"ERRO"

---------------------------
sql_produtos: Parameter ''barras'' not found.
---------------------------
OK
---------------------------

"CODIGO"
procedure TF_pdv.txt_barraChange(Sender: TObject);
begin
//Verifica se teve mudanças no campo
if Length (txt_barra.Text) = 13 then
begin
with dm.sql_produtos do

begin
Close;
sql.Clear;
sql.Add(''select * from produtos'');
sql.Add(''where pro_barras =: barras'');
ParamByName(''barras'').Value := txt_barra.Text;
open;
if RecordCount = 1 then
// Caso exista o produto posiciona no campo
begin
txt_pro_nome.Text := dm.sql_produtospro_nome.AsString;
txt_pro_preco.Value := dm.sql_produtospro_preço.Value;
txt_pro_prazo.Value := dm.sql_produtospro_preco_prazo.Value;


end;