Товар No. уже существует

[romeo]

Смотри.

IF ExItem.FIND('-') THEN REPEAT
  TempItemDesc.Description :=  ExItem.Description;
  TempItemDesc.INSERT;
UNTIL ExItem.NEXT = 0;

В начале ты вставляешь запись "Item No." = '', Description = ExItem.Description.
Вторая запись .. "Item No." = '', Description = ExItem.DescriptionNext. А "Item No." в таблице Item между прочим ключ невторичный ) Инициализируй его уникальным значением. Например ExItem.Code.