Рисовка линий уровня (Delphi)

Здравствуйте. Необходимо нарисовать линии уровня функции 2х переменных f(x,y)=C (С-константа) с помощью Canvas.LineTo. Проблема в том что функция иногда имеет больше 1 го корня при одинаковых у, в массив по порядку записываются оба корня в связи с чем рисовка выходит некорректно.

проверку на количество корней?