Delphi - Eliminar ITEMS en un listbox

hola amigos quisiera saber , por ejemplo tengo un listbox el cual tiene varios items como eliminar el item que este seleccionado con un boton es decir selecciono el item que quiero eliminar y doy clic en un boton y este debe borrarse

saludos a todos
espero puedan ayudarme

cualquiera de los dos botones funcionarian


procedure TForm1.Button1Click(Sender: TObject);
var ItemSeleccionado:Integer;
begin
ItemSeleccionado := ListBox1.ItemIndex;
ListBox1.Items.Delete(ItemSeleccionado);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
with ListBox1 do
Items.Delete(ItemIndex);
end;


Saludos!!!