PaintBox, определение точек пересечения прямоугольника и окружности

[_-Re@l-_]

Не получается. Код...

procedure FindPoints;
var
    i : Double;
    isf : Boolean;
begin
      i:=-500;
      while i <= 500 do
      begin
            if sqr(i-x)+sqr(y1-y) =sqr(r)  then
            begin
                  ShowMessage(FloatToStr(i)+' '+FloatToStr(y1));
            end;
            if sqr(i-x)+sqr(y2-y) = sqr(r) then
            begin
                  ShowMessage(FloatToStr(i)+' '+FloatToStr(y2));
            end;
            i:=i+0.5;
      end;
      i:=-500;
      while i <= 500 do
      begin
            if sqr(x1-x)+sqr(i-y) = sqr(r)  then
            begin
                  ShowMessage(FloatToStr(x1)+' '+FloatToStr(i));
            end;
            if sqr(x2-x)+sqr(i-y) = sqr(r)  then
            begin
                  ShowMessage(FloatToStr(x2)+' '+FloatToStr(i));
            end;
            i:=i+0.5;
      end;
end;

Не идёт. Точки пересечения не находятся. Как быть?