Fórum Listar dados de tabelas numa combo... #194724

Saudações,
eu gostaria de saber como faço para que os dados de uma tabela sejam listados num DBCombobox ou Combobox dependendo da opção do Radiobutton. Ex: se eu escolher a consulta por nome a combo mostrará todos os nomes contidos na tabela, o mesmo com fornecedor. O código que utilizo é feito no onclick dos radios. Ele funciona apenas com fornecedores. Ele exibe e os dados são selecionados para consulta. Mas com nome ele não pega...exibe apenas o último nome da tabela...e o código é o mesmo...o que eu faço? Vai aí o código do fornecedor:
procedure Tfrmconesc.rbfornClick(Sender: TObject);
begin
with query2 do
begin
close;
sql.clear;
sql.add(´select nome from fornecedores´);
open;
first;
ednome.Items.Clear;
while not query2.eof do
begin
ednome.DataField := ´´;
ednome.DataField := ´nome´;
ednome.items.Add(query2.fieldbyname(´nome´).asstring);
query2.next;
end;
end;

Agora o código da consulta por nome:
procedure Tfrmconesc.rbnomeClick(Sender: TObject);
begin
with query2 do
begin
close;
sql.clear;
sql.add(´select distinct nome from compraesc´);
open;
first;
ednome.Items.Clear;
while not query2.eof do
begin
ednome.DataField := ´´;
ednome.DataField := ´nome´;
ednome.items.Add(query2.fieldbyname(´nome´).asstring);
query2.next;
end;
end;