Мельница данных  (18.02.2020)
(одним файлом)  (cсылка) 
Псевдоподпрограмма TObject.Copy (Копировать)

См. также