procedure Assign(Source: TPersistent); override;

This is Assign, a member of class TTntTreeNode.