[mefodiy]

Я сделал проще:

new_str := '';
old_str := '';
REPEAT
new_str := "VAT Doc No.";
if old_str <> new_str then
BEGIN
i += 1;
old_str := new_str;
END;
UNTIL NEXT = 0;

Всем спасибо.