//Validate a coordinate if you want to be sure it's within a printed array:
{$I SRL-T/osr.simba}
{$I WaspLib/osr.simba}

var
  tpa: TPointArray = [];
  p : TPoint = [];

begin
  tpa := tpa.FilterBox(Box(p, 10, 10));

  WriteLn tpa <> [];
end.