Надо чтобы кнопка работала аналогично настоящей, т.е. пока нажата сигнал идет, отпустил - сигнала нет. И совсем хорошо было бы, если бы эта кнопка управляла не одной булевой переменной, а битовой маской, т.е. при зажатой кнопке выполнялась бы операция somevar:=somevar or 2#100, при отпущенной somevar:=somevar and 2#_011