Tirar de uma tabela e colocar em outra
ADOTable2.append;
ADOTable2.fieldbyname('Cliente').Value:=ADOTable1.fieldbyname('Produto').value;
ADOTable2.post;
ADOTable2.fieldbyname('Cliente').Value:=ADOTable1.fieldbyname('Produto').value;
ADOTable2.post;