Копирование м\у фирмами с помощью RecordRef

[Константин!]

<div class='CALtop'>C/AL</div><div class='CAL'>
var
 FromTable,ToTable - recordref
 TableId - integer
 NewCompanyName - text 30

ToTable.OPEN(TableID,FALSE,COMPANYNAME);
FromTable.OPEN(TableID,FALSE,NewCompanyName);
IF ToTable.FIND('-') THEN;
IF FromTable.FIND('-') THEN BEGIN
 REPEAT
   ToTable:=FromTable;
   ToTable.INSERT(TRUE);
 UNTIL FromTable.NEXT = 0;
END;</div>

При выполнение Оператора ToTable.INSERT(TRUE); появляется ошибка попытки вставить не уникальную запись, хотя копирую таблицу с одной записью в пустую таблицу.
Такое ощущение, что фирма в переменной ToTable стала такой же, как в FromTable. Подскажите, пожалуйста, можно ли побороть или обойти данную ошибку