Delphi 封装这个API参数设置的很有问题。需要按照下面的方式进行调用：
procedure CreateRegion;
var
i, j, PtsLen: integer;
Pts: array of TPoint; { All Points }
Ints: TIntegerDynArray; { Array of integer }
P1, P2: Pointer;
begin
......
......
P1 := Pts;
P2 := Ints;
Rgn := CreatePolyPolygonRgn(P1^, P2^, Count, 1);
end;
Count是指Ints的数组元素个数