Смотри.
Код:
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.