[prefreitor]

Используйте буферную табличку, например 307 -ю. Получится что то такое:

IF вашатаблица.FINDSET THEN
  REPEAT   
    Inventory Buffer."Item No" := вашатаблица.типобуви;
    IF Inventory Buffer.INSERT THEN;
  UNTIL вашатаблица.NEXT = 0;

Inventory Buffer соответственно объявить как как временную...