Copiar un registro de un Table a otro
 

Hola, quiero pasar una rigistro completo de una tabla a otra y buscaba algo mas simple que tener que escribir
try {Form1->Table1->FieldValues["GRAMAJE"] = Form1->Table2->FieldValues["GRAMAJE"];}catch(...){}
try {Form1->Table1->FieldValues["COLOR1"] = Form1->Table2->FieldValues["COLOR1"];}catch(...){}
try {Form1->Table1->FieldValues["COLOR2"] = Form1->Table2->FieldValues["COLOR2"];}catch(...){}
y asi por cada campo de la tabla.
alguien sabe como hacer con una intruccion simple de una sola vez.