[kye_z]

Encontre ahora mismo la solcion...

  
procedure TfrmNouCampeonat.butEliminarClick(Sender: TObject);
begin
  if lbClassesSeleccionades.Items.count<>0 then begin
	lbClassesSeleccionades.Items.Delete(lbClassesSeleccionades.ItemIndex);
  end;
end;

Murphy tenia razon en decir que cuando uno plantea una duda, seguidamente al volver al problema encuentra la solucion... pues a mi me pasa igual.... jejeje

muchas gracias por si alguien estaba intentando contestarme.......