unitUMenuInteract;interfacetypeTInteract=record// for moving thru menuTyp:integer;// 0 - button, 1 - select, 2 - Text, 3 - Select SLide, 5 - ButtonCollection ChildNum:integer;// number of this item in proper list like buttons, selectsend;implementationend.