Query y campos de un DBComboBox

[Alfonsoft]

Buenas,

Quiero que una query complete los campos de un cb, tal como lo tengo solo me trae el primer campo, lo que me hace pensar que hace falta un bucle... pero no se me ocurre como montarlo al tratarse de una query. ¿Me podéis ayudar?

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

cbPaises.DataSource :=  DM.dsPrueba;
cbPaises.DataField :=  'Pais';

Gracias,