From SCAR Divi Manual
procedure TPAEdge(var TPA: TPointArray);
SCAR Divi 3.37 > Current
Filters all points out of the given TPointArray TPA which aren't edge-points. Edge-points are points that are on the edge of the TPA, not completely surrounded by other points.
var TPA: TPointArray; begin TPA := TPAFromBox(Box(1, 1, 3, 3)); TPAEdge(TPA); WriteLn(TPAToStr(TPA)); end.