Código Delphi [-] var Str:String; begin // suponiendo que lb sea tu ListBox Str := lb.Items[lb.ItemIndex]; ...
var Str:String; begin // suponiendo que lb sea tu ListBox Str := lb.Items[lb.ItemIndex]; ...