Query y campos de un DBComboBox

[[Lepe]]

Código Delphi [-]
DM.qprueba.Close;
DM.qprueba.SQL.Clear;
DM.qprueba.SQL.Add('SELECT PAIS');
DM.qprueba.SQL.Add('FROM PAISES');

DM.qprueba.Open;
while not dm.qprueba.eof do
begin
  cbpaises.items.add(dm.qprueba.fieldbyname('Pais').AsString);
  dm.qprueba.next;
end;
cbPaises.DataSource :=  DM.dsPrueba;
cbPaises.DataField :=  'Pais';

Saludetes