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

[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]);