delphi的如何实现query数据集的数据复制

是这样的,我有一笔数据，现在我要修改它，但是我要保留以前的值，我想用query.appand后复制一条要修改数据放到数据集中，数据集为缓存模式，这样我点确认保存后才保存这笔数据，并且还保留了原来的数据(新增的数据的编号-唯一键不同)，如果不确认保存，就不插入这笔数据到数据库中，我现在只有用FIELDBYNAME().ASSTRING对每个字段进行赋值，但是这样太麻烦，请问有更好点的方法。