FilterPointsPie

procedure FilterPointsPie(

  var Points: TPointArray;

  const SD: Extended;

  const ED: Extended;

  const MinR: Extended;

  const MaxR: Extended;

  Mx: Integer;

  My: Integer

);