procedure Assign(Source: TPersistent)
Копирует свойства указанного объекта в текущий. Какие именно свойства будут скопированы зависит от текущего объекта.
Параметры: