[Шрэк]

Напишите так:

  WITH ILRec DO BEGIN
	  INIT;
	  id := 0;
	  idIH := Rec.id;
	  ItemCode := adoRec1.Fields.Item(0).Value;
	  UnitPrise:= adoRec1.Fields.Item(1).Value;
	  CountDoc := adoRec1.Fields.Item(2).Value;
	  SumDoc   := adoRec1.Fields.Item(3).Value;
	  INSERT(TRUE);
  END;

То есть, полю id присвойте 0 перед вставкой.