Анимация на компоненте VCL

// Код отрисовки сцены ----------------------------------------------------------------
 
void TMainForm::DrawGLScene()
{
    glClearColor(1,1,1,1);
    glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
 
    DrawFigure();
 
    SwapBuffers(hDC);
}
 
// Так ловим сообщение WM_PAINT и перерисовываем без мерцания -------------------------
 
// --------- *.cpp :
LRESULT CALLBACK NewWindowProcPanel3D(HWND hWnd, UINT msg, WPARAM w, LPARAM l)
{
    if (msg == WM_ERASEBKGND)
        return 1;
    else if (msg == WM_PAINT)
        MainForm->DrawGLScene();
 
    return CallWindowProc((FARPROC)MainForm->OldWindowProcPanel3D, hWnd, msg, w, l);
}
 
// Создание OldWindowProcPanel3D ------------------------------------------------------
 
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    OldWindowProcPanel3D = (WNDPROC)SetWindowLong(Panel3D->Handle,
        GWL_WNDPROC, (long)NewWindowProcPanel3D);
}
 
// --------- *.h :
class TMainForm : public TForm
{
    private:
        HDC hDC;
 
    public:
        WNDPROC OldWindowProcPanel3D;
}
 
// Так генерируем сообщение WM_PAINT --------------------------------------------------
 
void TMainForm::UpdateScene()
{
    InvalidateRect(Panel3D->Handle, NULL, false);
}
 
// Код анимации (при активной RadioButton запускаем анимацию) -------------------------
 
void __fastcall TMainForm::RadioGroupClick(TObject *Sender)
{
    if (RadioGroup->ItemIndex == 0)
       animation = false;
    else if (RadioGroup->ItemIndex == 1)
        animation = true;
 
    if (animation)
    {
        while (animation)
       {
            Application->ProcessMessages();
            UpdateScene();
        }
    }
}

LRESULT CALLBACK NewWindowProcPanel3D(HWND hWnd, UINT msg, WPARAM w, LPARAM l)
{
    switch (msg)
    {
        case WM_ERASEBKGND :
        {
            return 1;
        }
        case WM_PAINT :
        {
            MainForm->DrawGLScene();
        }
        default: return CallWindowProc((FARPROC)MainForm->OldWindowProcPanel3D,
            hWnd, msg, w, l);
    }
    return 0;
}

switch ( <переменная> ) {
case значение1:
  Выполнить если <переменная> == значение1
  break;
case значение2:
  Выполнить если <переменная> == значение2
  break;
...
default:
  выполнить, если ни один вариант не подошел
  break;
}