procedure New (var P: Pointer);