criando uma conexao para buscar codigo na tabela

to criando uma conexao para buscar o codigo do produto a partir do produto selecionado no combobox, consegui jogar os itens para o dbcombobox, mas na hora que seleciono o produto o codigo do dbedit10 nao muda. segue codigo que carrega o dbcombobox.

procedure TfrmConsultaPedidos.tbitensShow(Sender: TObject);
var
DBCon: TDBXConnection;
Command: TDBXCommand;
Reader: TDBXReader;

begin

DBCon := TDBXConnectionFactory.GetConnectionFactory.GetConnection('FBConnection','SYSDBA','masterkey');
Command := DBCon.CreateCommand;
command.Text := 'select produtosid,descricao from produtos';
reader := command.ExecuteQuery;
while reader.Next do
begin
dbcombobox3.Items.Add(reader.Value[1].GetAnsiString);
end;



end;