procedure Assign(APersistent: TPersistent)

 If a descendant class does not override this method and the specified source TPersistent instance is not nil, the default behavior is for this method to call the protected TPersistent AssignTo method of the source TPersistent instance, passing the current instance as the parameter. The default behavior of the AssignTo method is to do nothing.