TJvDatabaseCopyAction.CopyRecord enhanced