Обработка промаркированных записей

[Iceman]

На форме есть кнопка.
На кнопке код:

ForExport.COPY(Rec);
CurrForm.SETSELECTIONFILTER(ForExport);
ForExport.MARKEDONLY(TRUE);
MESSAGE:=FORMAT(ForExport.COUNT);
Mgt.ExportBody(ForExport,2);

MESSAGE выводит значение 1 сколько бы записей я не пометил... всё перепробовал, не работает. В функцию передаётся одна запись.
Это полбеды. Вторая беда:
Как организовать перебор записей в вызываемой функции?
То, что написано там сейчас после всех мучений с функцией:

Function ExportBody(JnlRecord: Record, Option:.....)

LRecord.COPY(JnlRecord);
LocRecord.COPYFILTERS(LRecord);
//LocRecord.MARKEDONLY(TRUE);

IF LocRecord.FIND('-') THEN
	REPEAT

	MESSAGE('Record Found');

	.............................................

	UNTIL LocRecord.NEXT = 0;

Понимаю что решение в функции неверное, но довести до ума никак не могу.
Помогите разобраться...

З.Ы. Записи маркируются по Ctrl+F1