Procedure WaitButton(Klavesa: Byte); Begin Inc(ButtonDelay); If ButtonDelay