Primero que nada, una pequeña disculpa por lo poco parco de mi mensaje anterior. Ya iba de salida del trabajo así que solo puse como lo podrías hacer pensando que te ayudaría de esa forma.
Como bien menciona
xEsk, el método
AddItem del
TListBox te permite agregar un elemento a la lista con un objeto asociado, al pedir como segundo parámetro un
TObject hacemos un casting para que acepte el tipo
Integer:
Código Delphi
[-]
ListBox1.AddItem('Gauge 100%', TObject(100));
Ya teniendo los elementos en el listbox con un objeto asociado, al momento de obtener estos valores, usamos la propiedad
Items, que contiene un arreglo con los objetos asociados a los elementos. Los valores de este arreglo se obtienen así:
Código Delphi
[-]
Gauge1.Progress := Integer(ListBox1.Items.Objects[ListBox.ItemIndex]);
Con todo esto te ahorras tener un if para comprobar el
ItemIndex de cada elemento y también resuelves tu problema de que no importe en que orden metes los porcentajes al listbox.
Saludos...