Да здравствует Yegor!
Великий изобретатель велосипеда!
Там еще надо писать типа Mask_out.Do0:= ...; .Только если флажок Replace constant в настройках КДС не поставить компилятор заругается.
Реально использовать для передачи битовых адресов на Слэйв(Панель ,ПК).