Hola moise094, otra opción, si el número va a estar siempre al final separado por un espacio, podemos utilizar las funciones Pos y Copy.
Código Delphi
[-]
var
PosIni : Integer;
Valor, item : String;
begin
item := ListBox1.Items[ListBox1.ItemIndex];
PosIni := Pos(' ', item);
Valor := Copy(item, PosIni+1, Length(item)-PosIni);
Showmessage(Valor);
en el caso de que haya mas espacios, primero encontramos el ultimo espacio para hacer el copy.
Saluditos