Обработка выделенных строк или про примудрости SETSELECTIONFILTER

[del_negrozzz]

Простите, а зачем эта конструкция?
...
IF MARK THEN REPEAT
//обработка строк
UNTIL NEXT=0;

И вообще зачем используюете переменную Rec, заведите новую переменную и напишите примерно так:

CurrForm.SETSELECTIONFILTER(MyRec);
IF MyRec.FINDSET THEN BEGIN
REPEAT
//обработка строк
UNTIL MyRec.NEXT=0;
END;