Вопрос снят. Поторопился. Сидел смотрел на код минут 15.
Пока не написал на форум, не нашел ошибку
Код:
DateBegin:=DM.FindStudentInfo(DM.qStudents.Fields[0].AsInteger,8);
FindAndReplace('$$$DateBegin$$$', DateBegin);
DateEnd:=DM.FindStudentInfo(DM.qStudents.Fields[0].AsInteger, 9);
FindAndReplace('$$$DateEnd$$$', DateEnd);
