{==============================================================================]
  Explanation: Removes all TPAs from ATPA that fall outside minimum / maximum dimensions.
[==============================================================================}
procedure ATPAExtractDimensionsEx(var ATPA: T2DPointArray; minWidth, minHeight, maxWidth, maxHeight: Integer);
var
  width, height, h, i: Integer;
begin
  if ((minWidth > maxWidth) or (minHeight > maxHeight)) then
    Exit;
  h := High(ATPA);
  for i := h downto 0 do
  begin
    TPADimensions(ATPA[i], width, height);
    if ((width < minWidth) or (width > maxWidth) or (height < minHeight) or (height > maxHeight)) then
      Delete(ATPA, i, 1);
  end;
end;