(Resolvido) Retornar valor de query mysql

[sacofritoxd]

Ola galera tudo bem?

Estou mesmo precisando da ajuda de voces.

Como retorno o valor de uma query para preencher os campos de um cadastro?

tipo

Oque estou tentando esta assim

procedure TfrmCadProd.txtCodigoChange(Sender: TObject);
  begin
    if txtcodigo.Text <> '' then
      begin
       consulta.SQL.add ('select * from produtos where idprodutos:=' + txtCodigo.Text);
       consulta.Open;
       if not consulta.eof then
        begin
          pf_MostraCampos;
        end
       else
        begin
          pf_LimpaCampos;
        end;
       end
    else
      begin
         pf_LimpaCampos;
      end;
  end;

  procedure TfrmCadProd.pf_LimpaCampos();
  begin
    txtCodBarras.Text = '';
    cmbDescricao.text = '';
    txtEstoque.text = '';
    txtvalor.Text = '';
  end;

  procedure TfrmCadProd.pf_MostraCampos();
  begin
    txtCodBarras.Text = consulta.Fields('codbarras').value
    cmbDescricao.text = consulta.Fields('descricao').value
    txtValor.text = consulta.Fields('vl_venda').value
    if consulta.Fields('ativo').value = 'S' then
      begin
        optSim.checked = true;
      end
    else
      begin
        optNao.checked = true;
      end;

  end;

MAs não esta dando certo...alguém pode me ajudar, por favor?

[sacofritoxd]

Já consegui obrigado

A quem interessar.

consulta.Close;

consulta.SQL.text := ('select * from produtos where codbarras =' + QuotedStr(txtCodBarras.Text));

consulta.Open;

if not consulta.eof then

begin

TXTCODIGO.Text := consulta.fieldbyname('idprodutos').text;

end;