procedure Assign(Source: TPersistent)  

Копирует свойства указанного объекта в текущий. Какие именно свойства будут скопированы зависит от текущего объекта.

Параметры:

• Source - объект-источник.