[YuliyaKar]

Код:

Sum := 0;
     if Table5.Locate('Kodo', 1, []) then
    Sum := Sum + Table5.FieldByName('Lst').AsFloat+ Table5.FieldByName('Sum').AsFloat
  else
    raise Exception.Create('Не найдена нужная запись');

 for i:=2 to 8 do
 begin
    if Table5.Locate('Kodo', i, []) then
    Sum := Sum + Table5.FieldByName('Lst').AsFloat
  else
    raise Exception.Create('Не найдена нужная запись');
  Table5.Edit;
  Table5.FieldByName('Sum').Value := Sum;
  Table5.Post;
  end;

Написала вот так и поместила все в FormShow! Пока работает
Polismen СПАСИБО!!!
П.С.
Polismen посмотрите, пожалуйста эту тему! Я пробую вставить значения строки в столбец1!!
http://www.delphisources.ru/forum/sh...322#post133322