void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
    String GG[4]= {
     "01", "01234567", "0123456789", "0123456789ABCDEFabcdef" };
    if(ComboBox1->ItemIndex <0 || ComboBox2->ItemIndex <0)  Key = NULL;
    if(Key!=VK_BACK && GG[ComboBox1->ItemIndex].Pos(Key)<1) Key = NULL;
} 

#include <glad/glad.h>
#include <GLFW/glfw3.h>

int main()
{
    // Инициализация
    glfwInit();                     // Инициализировать библиотеку GLFW
                                    // Создать окно
    GLFWwindow *window = glfwCreateWindow(256, 256, "Empty Window", nullptr, nullptr);
    glfwMakeContextCurrent(window); // Создать контекст OpenGL для рисования
    gladLoadGL();                   // Инициализировать библиотеку GLAD

    glClearColor(0.2f, 0.3f, 0.3f, 1.0f); // Установить цвет для очистки холста

    // Главный цикл приложения
    // Получен сигнал на закрытие окна?
    while (!glfwWindowShouldClose(window))
    {
        // Проверить, были ли активированы какие-либо
        // события (нажатие клавиши, перемещение мыши и
        // т. д.), и вызвать соответствующие функции ответа.
        glfwPollEvents();

        glClear(GL_COLOR_BUFFER_BIT);   // Очистить холст заданным ранее цветом
        glfwSwapBuffers(window);        // Поменяйте местами передний и задний буфер рисования
    }

    // Очистить ресурсы
    // Очистить ресурсы библиотеки GLFW
    glfwTerminate();

    return 0;
}