[UGT]

Если эти таблицы имеют одинаковый субтип, то код будет такой:
if xxxx.find('-') then
repeat
zzz := xxxx;
zzz.insert;
until xxxx.next = 0;
Если таблицы разные, то используйте TRANSFERFIELD