[Casimiro Notevi]

Quitas el componente tabla y pones un componente query. En su sentencia select pones lo que te he escrito antes, y aprovechando tu código, quedaría así:

Código Delphi [-]
query.First;
while not (query.EOF) do begin
     lista.Items.Add(query.FieldByName(codig).AsString);
     query.Next;
end;

Empezado por viaraSOFT.com

Gracias Casimiro! yo estoy recorriendo la tabla con un ciclo porque no estoy utlizando un dblist si no un objeto lista corriente. El código es sencillo:
tabla.First;
while not (tabla.EOF) do begin
lista.Items.Add(tabla.FieldByName(codig).AsString);
tabla.Next;
end;