[[maeyanes]]

Puedes probar con esto:

Código Delphi [-]
// Agregar datos a los listbox:
ListBox1.AddItem('Gauge 10%', TObject(10));
ListBox1.AddItem('Gauge 100%', TObject(100));

// Obtener el valor para el gauge:
Gauge1.Progress := Integer(ListBox1.Items.Objects[0])

Saludos...