Да, а чтобы не повторять один и тот же код, например, в процедурах *._var_Result и *.doResult, делается private функция типа function *.GetResult(args...):resulttype и вызывается из *._var_Result и *.doResult, а на выход подается результат этой функции.