[romeo]

Создайте в форме функцию GetCurrRecord(VAR _Rec [ваша таблица])
Текст прост
_Rec.COPY(Rec);

Тогда

IF Frm.RUNMODAL = ACTION::Close THEN BEGIN
  Frm.GetCurrRecord(_ВашаRec);
  _ВашаRec.MARKEDONLY(TRUE);
  ...
END;