listbox con TStringList

[luisgutierrezb]

pues no se si el TParser de delphi te pueda ayudar, aqui hay una liga para que veas como funciona:
TParser
o tambien hacerlo a mano:

Código Delphi [-]
var
  
begin
  Cad := '25 12.5 5';
  //eliminamos la primera parte
  Posicion := Pos(' ', Cad);
  delete(Cad, 1, Posicion);
  //eliminamos la segunda parte
  Posicion := Pos(' ', Cad);
  delete(cad, Posicion, Length(Cad)-Posicion);
  //mostrar resultado, teoricamente: 12.5
  ShowMessage(Cad);
end;