type TDynamicTPointArray = array of TPoint;
function GetPolygon(var APoints:TDynamicTPointArray);
begin
…
みたいにする。