[Erel]

You could define:
Dim Type(x,y) pts(500000)
And now store the shapes in one sequence and draw each shape with something like:

Form1.Polygon(pst(),ShapeNumber * 1000,LengthOfShape,...)

That way there is no need to copy the points each time.