Найти запись в TList в зависимости от координат TPaintBox

[Kottik]

Здравствуйте.

В наличии:
1) класс ТТочка с паблик свойствами: X и Y (целые), плюс ещё некоторые свойства.
2) несколько объектов типа TList, хранящих объекты класса ТТочка.
Почему несколько? Они отличаются Y. В одном TList все Y одинаковые.
Например, list1 все Y=100, list2 Y=200, list3 Y=300.
Внутри каждого объекта TList отсортировываю записи по значению X.

X и Y являются центрами окружностей на TPaintBox. Все объекты генерирую случайно. Всего этих точек(окружностей) может быть не более 1000.

Как при наведении курсора мыши на окружность получить все её свойства, т.е. найти её в списке? (отображу их на ТСтатусБар или всплывающим сообщением).
Окружности могут находиться очень близко друг от друга, даже налогаться друг на друга, диаметр всех окружностей 10.
Если можно - то выделить, "подсветить" выбранную окружность.

[BOBAH13]

Честно говоря не понимаю почему несколько TList, это легче чем двумерный массив указателей на ваши классы описания ? Т.е. просто таблица (X, Y грубо говоря) в которой ячейки ваши указатели. Ну да ладно, даже если и так, почему два цикла (один вложеный) не сделать и проверять пока не найдутся X и Y нужные ?

[Kottik]

ВОВАН13, спасибо за советы.

Сообщение от BOBAH13

почему несколько TList?

Мне нужно знать сколько точек(окружностей) находится на каждом уровне (уровней может быть от 2 до 10), поэтому для каждого уровня отдельный TList (у каждого одно значение Y для всех его объектов). На каждом уровне точек больше, чем на предыдущем. На первом и вовсе только 1. Поэтому, если использовать двумерный массив у меня будет только последняя строка заполнена полностью, остальные не до конца. При этом будет расходоваться память впустую?

Допустим, на TPaintBox вешаю событие OnMouseMove.
Получаю текущие координаты курсора

GetCursorPos(p);

Но ведь чтобы точные координаты получить, нужно будет четко в центр попасть окружности... А если рука дрогнет? Вот если бы захватывать, например, диаметр 4 вокруг текущего положения курсора. Уровень то легко будет найти и найду тот TList, который для этого уровня окружностей предназначен. Но вот потом перебрать все координаты X...