Código Delphi [-] procedure TForm2.Button2Click(Sender: TObject); begin if ListBox1.ItemIndex > -1 Then ListBox1.Items.Delete(ListBox1.ItemIndex) end;
procedure TForm2.Button2Click(Sender: TObject); begin if ListBox1.ItemIndex > -1 Then ListBox1.Items.Delete(ListBox1.ItemIndex) end;