Ошибка с плавающей точкой

[Vistar]

Я нарисовал несколько кругов. Сохранил их координаты в массиве Picture, который имеет тип

Type
   Figura = record
      x_min: integer;
      y_min: integer;
      x_max: integer; {использую только для квадратов}
      y_max: integer; {использую только квадратов}
      type_of_pic: string; {здесь указываю тип моей фигуры}
   end;

Переменные x_min и y_min использую как координаты центра круга который рисуется.

Я ставлю точку на экране и нада определить принадлежит ли эта точка нарисованному кругу. Для этого я сравниваю расстояние между центром каждого круга и точкой на экране с радиусом этих кругом. Но когда я определяю расстояние между центром и точкой то выскакивает ошибка "207, invalid floating point operation". Вроди и стоит округление к целому числу, но всеравно иногда выскакивает. Когда я ставлю точку в квадрат и круг, то все работает так как нада, а когда только в круг то вот такая ошибочка. Уже все переискал. Нигде немогу найти решение. Помогите устранить ошибку. Заранее благодарен.

if Picture[n].type_of_pic = 'circle' then
begin
   distance := round(sqrt(sqr(f_x - Picture[n].x_min) + sqr(f_y - Picture[n].y_min)));
   if distance < f_circle_radius[n] then
   begin
      Inc(w);
      f_circle[w] := n;
   end;
end;

distance типа integer
В f_circle_radius[n] записан радиус каждого круга.

[OCTAGRAM]

Помогает ли добавление {$N-,E+} в начало файла?

[Vistar]

нет. всеравно иногда выбрасывает. и указывает на ошибку в строке

distance := round(sqrt(sqr(f_x - Picture[n].x_min) + sqr(f_y - Picture[n].y_min)));

[Stilet]

Vistar

А прикрепи ка свой проектик сюда в архиве...

[Vistar]

..........................

[Vistar]

Я теперь написал вот так

distance := round(sqrt(round(sqr(round(f_x - Picture[n].x_min))) +
                  round(sqr(round(f_y - Picture[n].y_min)))));

Работает.