cargar un listbox

[roman]

Dos opciones:

1. Usas el ListBox con Style = lbOwnerDrawFixed y dibujas tú mismo cada ítem en el evento OnDrawItem mostrando sólo el apellido y nombre aunque el ítem contenga toda la información.

2. Usa la propiedad Objects de ListBox.Items:

ListBox.Items.AddObject('amargo mate', Pointer(84));

Para recuperar el número:

Numero := Integer(ListBox.Items.Objects[i])

// Saludos