GUI-тестирование "по-русски". Определим операторы =- и =+. КОРОЧЕ!

По мотивам  - http://18delphi.blogspot.ru/2013/11/gui_7766.html

Через =:^

WORDWORKER =- INTEGER IN aDecrement
 WordToWork DO aDecrement - =:^ WordToWork
 // - вычисляем разность
END // =-
 
WORDWORKER =+ INTEGER IN anIncrement
 WordToWork DO anIncrement + =:^ WordToWork 
 // - вычисляем сумму
END // =+

Про оператор =:^ - напишу - чуть позже.