Código Delphi [-] var s: string; begin s := ListBox1.Items[0]; end;
var s: string; begin s := ListBox1.Items[0]; end;