Listar dados de tabelas numa combo...

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;