procedure TForm1.ListBox1Click(Sender: TObject); // ou procedure TForm1.ListBox1DoubleClick(Sender: TObject); begin ListBox1.DeleteSelected; end;