+ Adds new routine: CopyObject(AFrom, ATo).