[Страдалецъ]

Код:

DM.ADOTable1.First;
while not(DM.ADOTable1.Eof) do
 begin
 n:=DM.ADOTable1price.Value;
 n:=Trunc(n*1.15);
 DM.ADOTable1.Edit; //Сначала переводите таблицу в режим редактирования:
 DM.ADOTable1price.Value:=n;
 DM.ADOTable1.Post; //В финале подтверждаете запись данных в таблицу
 DM.ADOTable1.Next;
 end;