[Валентин_Будэйко@vk]

просто может добавить какой то компонент, в котором перечислить нужные номера и сравнить их со stringGrid, которые совпадают посчитать сумму

просто вообще продвинуться не могу, по одному номеру получается
for i := 1 to St1.RowCount-1 do
if 777 = StrToint(St1.Cells[1, i]) then
Summ := Summ + StrToint(St1.Cells[2, i]);
Lbl1.Caption := intToStr(Summ);

а как группу, что то ума не хватает

т.е. мне важно посчитать сумму конкретных значений, а будут они удалятся из таблицы или останутся - это не имеет значения