[.Quattro.]

Совсем правильно надо вот так.

PurchHeader.RESET;
PurchHeader.SETRANGE(PurchHeader.Posted,TRUE);
IF PurchHeader.FINDSET THEN
  REPEAT
    PurchHeader2 := PurchHeader;
    PurchHeader2.DELETE(TRUE);
    COMMIT;
  UNTIL PurchHeader.NEXT = 0;

Но скорее всего вы что-то намудрили с вызовом через NAS - используете Job Queue?