[trabajo]

Написать функцию типа

CLEAR(..);
sum := 0;
SETRANGE(..);
IF FIND('-') THEN REPEAT
sum += "..";
UNTIL NEXT = 0;

в триггере OnActivate() кнопки вызов этой функции.