{$R-}

function RandomTPA(n:Int32; w,h:Int32): TPointArray;
var i:Int32;
begin
  SetLength(result, n);
  for i:=0 to n-1 do
    Result[i] := Point(Random(w), Random(h));

end;

var
  TPA:TPointArray;
  tm:Int64;
begin
  TPA := RandomTPA(50000, 700,700);
  tm := GetTickCount();
  SplitTPA(TPA, 4);
  WriteLn('took ' + ToStr(GetTickCount()- tm) + ' ms');
end.