Как работать с записями?

[Wizard_imported]

{
VAR
i          Integer
Customer   Record          Customer
Start      Time
Finish     Time
}

WITH Customer DO BEGIN

  Start := TIME;
  i := COUNT;
  Finish := TIME;
  IF NOT CONFIRM(STRSUBSTNO('Simple COUNT = %1, takes %2 msec\Continue?', i, (Finish - Start)))
     THEN ERROR('');

  SETFILTER(Balance, '<>0');
  Start := TIME;
  i := COUNT;
  Finish := TIME;
  IF NOT CONFIRM(STRSUBSTNO('FlowField COUNT = %1, takes %2 msec', i, (Finish - Start)))
     THEN ERROR('');

  RESET;
  i:=0;
  Start := TIME;
  IF FIND('-') THEN REPEAT
     CALCFIELDS(Balance);
     IF (Balance <> 0) THEN
        i += 1;
  UNTIL NEXT=0;
  Finish := TIME;
  IF NOT CONFIRM(STRSUBSTNO('FlowField Loop Counter = %1, takes %2 msec', i, (Finish - Start)))
     THEN ERROR('');

  RESET;
  i:=0;
  IF FIND('-') THEN REPEAT
     RENAME('яя'+"No.");
     i += 1;
  UNTIL NEXT=0;

  MESSAGE ('Wrong way to Rename records example, Records renamed: = %1', i);

END;

Вставьте запись с кодом '00001' в 18 таблицу чтоб данные не портить
Скопируйте в какой-нить новый юнит, запустите на своих данных.
У меня получилось вот так:
1 сообщение: 1420, 0
2 сообщение: 682, 1657 ms
3 сообщение: 682, 281 ms
4 сообщение: 1


У меня база SQL, но на локальном кронусе результаты принципиально те же получились.