И вправду утро вечера мудренее. Сделал то, что казалось займёт неделю.
Сначала починил проверку попадания в точку. Оказалось достаточно просто написать если попал, popal = 1, если не попал popal = 0 :-)
Затем добавил вторую точку. Напрашивается написание процедуры для управления множеством точек, а не только двух.
Добавил линию между ними.
При перемещении точки на ее месте, как писал вчера, рисуется белая точка. Так же поступил и с линией. Только она оставляет на точках забавные засечки. Будем думать как от этого избавиться.