Изучаю курс "Введение в программирование на Delphi", вот, и застрял на 32 лекции. Вот какое там содержание:

Подсчет данных

Улучшим пример, подсчитав общее количество книг и их сумму. Для этого в модуле DM создайте переменную – закладку. Она нам необходима для того, чтобы после подсчета возвращаться к записи, откуда вызвана процедура пересчета. И переменная должна находится там же, где определены компоненты Table, потому что закладки описываются в этих модулях. Переменная должна быть глобальной:

bm : TBookmarkStr; //закладка

Далее, в главном модуле в разделе Private опишем нашу процедуру:

procedure Itog;

Напишем эту процедуру в самом низу:

procedure TfMain.Itog; var all : Integer; //для общ. кол-ва книг summ : Real; //для общ. суммы begin //ставим закладку: DM.bm := fDM.TBooks.Bookmark; //обнуляем переменные all := 0; summ := 0; //перемещаемся от начала до конца и сохраняем результат: fDM.TBooks.First; while not fDM.TBooks.Eof do begin all := all + fDM.TBooks['Exemp']; summ := summ + fDM.TBooks['Exemp'] * fDM.TBooks['Cena']; fDM.TBooks.Next; end; //while //снова переходим на закладку и убираем ее: fDM.TBooks.Bookmark := DM.bm; DM.bm := ''; //записываем данные: Label1.Caption := 'Всего книг: ' + IntToStr(all); Label2.Caption := 'На общую сумму: ' + FormatFloat('0,000.00', summ) + ' руб.'; //15 лекция end;

Сгенерируйте событие onShow для главной формы и там вызовите нашу процедуру:

Itog;

Также добавьте ее вызов из команды меню "Редактирование – Добавить книгу". Теперь мы можем быть уверены, что при добавлении книги пересчет будет правильный.

/\Я так понял что закладка, это то, что мы в глобальных прописываем, или же все-таки еще что-то?/\