Copiar un registro de un Table a otro

[daniel23552003]

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.