count := 0 rec.setrange - накладываете нужные фильтры по необходимости rec.find('-') repeat rec.setrange("VAT Doc No.","VAT Doc No.") if rec.find('-') begin repeat boolnext := rec.next; until boolnext = 0 count +=1 end rec.setrange("VAT Doc No.") until rec.next = 0 boolnext,count - integer