type
 TBtnOrder = -1..32767;