[[Lepe]]

Un pequeño detalle:
Que haya elementos en la lista no significa
que hay uno seleccionado.

A la vez propongo una forma rápida de borrar todos los elementos
con el mismo código, si no hay seleccionado ninguno,borramos el ultimo.

Código Delphi [-]
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
  with lbClassesSeleccionades do
 if itemindex <>-1  then begin
  Items.Delete(ItemIndex);
  end
  else
    if items.count>0 then 
      items.delete(items.count-1);
end;

Saludos