procedure checkAreaBounds(var Area: TBox);
var
  w,h:integer;
begin
  getClientDimensions(w, h);
  Area.X1 := Min(Area.X1, Area.X2);
  Area.X2 := Max(Area.X1, Area.X2);
  Area.Y1 := Min(Area.Y1, Area.Y2);
  Area.Y2 := Max(Area.Y1, Area.Y2);

  Area.X1 := Max(Area.X1, 0);
  Area.X2 := Min(Area.X2, w-1);
  Area.Y1 := Max(Area.Y1, 0);
  Area.Y2 := Min(Area.Y2, h-1);
end;

function TCol.findPie(Area: TBox; StartD, EndD, MinR, MaxR: Extended; MidX, MidY: Integer; var Points: TPointArray): Boolean;
var
  tmpCTS : Integer;
  tmpRes : Boolean;
begin
  tmpCTS := getToleranceSpeed();
  if ((Self.hMod <> 0.2) or (Self.sMod <> 0.2)) then
  begin
    setColorToleranceSpeed(2);
    setToleranceSpeed2Modifiers(Self.hMod, Self.sMod);
  end;
  checkAreaBounds(Area);
  tmpRes := Self.findAllIn(Area, Points);
  setColorToleranceSpeed(tmpCTS);
  if not tmpRes then Exit(false);
  filterPointsPie(Points, StartD, EndD, MinR, MaxR, MidX, MidY);
  Result := (length(Points) > 0);
end;