2 campos en 1 combobox

[[seoane]]

AddObject es un método de la clase TStrings, a la que pertenece items, que añade un string a la lista y asocia a ese string un objeto. Como una variable objeto no es mas que un puntero, utilizamos un typecast para asociar un integer al string. Una vez que tenemos la asociación hecha, para cada cadena de la lista podemos obtener el integer asociado.