Версия 2.1 - стабильная! и красивая

Изменения в модуле ListUtils:
*) добавлен метод removeall в List, удаляющая все элементы списка,
удовлетворяющих условию. В данном случае, две вариации процедуры - по
совпадению с переданным параметром данного или по условию типа Predicate
*) Реализована до конца функция find в List. К двум уже имеющимся
вариациям (по Predicate ил по данному TValue) добавлены анологичные с
новым параметром - с какого элемента списка начинать поиск; в следствии
этого старые две вариации find выражены через новые соответственно
*) В Iterator добавлен конструктор create, просто создающий итератор с
полем next=nil

Изменения в GraphPicker:
*) Добавлена константа - увеличено верхнее поле отступа
*) Добавлен объект EdgeDeletePredicate (Predicate) для удаления рёбер
при удалении вершины
*) NearPredicate, проверка клика в окрестности центра вершины,
переименован в NearVertPredicate
*) Добавлена перспектива для удаления ребра - написан (неработающий)
объект NearEdgePredicate
*) Измененён порядок [рабочей] текущих координат курсора - вызов
процедуры печати перенесён в redrawall; в следствии этого, добавлены
глобальные переменные текущих координат