Работа с таблицами Опции

[guest]

Уважаемые эксперты подскажите пожалуйста что нужно написать для правильной работы программы. Существуют 2 таблицы(одна заполнена данными, другая пустая), по нажатию кнопки необходимо сделать так, чтобы одна из записей первой таблицы была перенесена во вторую. Обе таблицы сделаны через Database Desktop. я нашел похожую программу, но там данные не сохраняются в таблице и при каждый раз данные замещают друг друга, а необходимо чтобы они добавлялись к уже существующим.

 lCount := Table1.FieldCount;
for i := 0 to lCount - 1 do
if (not Table1.Fields[i].IsNull) and (Table1.Fields[i].CanModify) then
Table2.FieldByName(Table1.Fields[i].FieldName).Assign(Table1.Fields[i]);

[guest]

Ну неужели никто не может помочь? Есть и другой вариант, но он некорректно работает

Table2.Edit;
Table1.Locate('Id', Table1['Id'],[locaseinsensitive]);
Table2.InsertRecord([Table1['Id'],Table1['Name']]);
Table2.ApplyUpdates;