Hola
Como no se hacer las cosas bien, entonces las hago asi:
Código Delphi
[-]
QTemp.SQL.Text := 'Select CodCliente From Clientes ';
QTemp.Active := True;
While not QTemp.Eof do
begin
DBListBox1.Items.Add(QTemp.Fields[0].Text);
QTemp.Next;
Y no tengo que enlazar el componente con nada.
Saludos