Можно ли средствами OpenGL рисовать на канве?

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "GLSkeleton.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Application->OnIdle = IdleLoop;
    _clear87();
    _control87(MCW_EM, MCW_EM);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdleLoop(TObject*, bool& done)
{
     done = false;
     RenderGLScene();
     SwapBuffers(hdc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RenderGLScene()
{
     //Place your OpenGL drawing code here
    DrawBackground();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawBackground()
{
     //Place your OpenGL drawing code here
    glClear(GL_COLOR_BUFFER_BIT);
    glColor3f(1.0,0.0,0.0);
    float dx, dy;
    dy = 50;
    dx = 50;
    for (float y = 0; y < Height; y+=dy) {
        for (float x = 0; x < Width; x+=dx) {
            glBegin(GL_LINE_LOOP);
                glVertex3f(   x, y+dy, 0.0f); // Слева вверху
                glVertex3f(x+dx, y+dy, 0.0f); // Справа вверху
                glVertex3f(x+dx,     y, 0.0f); // Справа внизу
                glVertex3f(   x,     y, 0.0f); // Слева внизу
            glEnd();
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    //hdc = Image1->Canvas->Handle;//*/GetDC(Handle);
    hdc = GetDC(Panel1->Handle);
    SetPixelFormatDescriptor();
    hrc = wglCreateContext(hdc);
    wglMakeCurrent(hdc, hrc);
    SetupRC();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetupRC()
{
    glClearColor(1.0f, 1.0f, 1.0f, 1.0f);
    glClear(GL_COLOR_BUFFER_BIT);
    glFlush();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ReleaseDC(Panel1->Handle, hdc);
    wglMakeCurrent(hdc, NULL);
    wglDeleteContext(hrc);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SetPixelFormatDescriptor()
{
    PIXELFORMATDESCRIPTOR pfd = {
        sizeof(PIXELFORMATDESCRIPTOR),
        1,
        PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER,
        PFD_TYPE_RGBA,
        24,
        0,0,0,0,0,0,
        0,0,
        0,0,0,0,0,
        32,
        0,
        0,
        PFD_MAIN_PLANE,
        0,
        0,0,0
        };
    PixelFormat = ChoosePixelFormat(hdc, &pfd);
    SetPixelFormat(hdc, PixelFormat, &pfd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
    glViewport(0, 0, Panel1->Width, Panel1->Height);
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
 
    gluOrtho2D(0, Panel1->Width, 0, Panel1->Height);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef GLSkeletonH
#define GLSkeletonH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Imaging.jpeg.hpp>
#include <GL/gl.h>
#include <GL/glu.h>
#include <GL/glaux.h>
#include<float.h>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormResize(TObject *Sender);
private:    // User declarations
    HDC hdc;
    HGLRC hrc;
    int PixelFormat;
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    void __fastcall IdleLoop(TObject*, bool&);
    void __fastcall RenderGLScene();
    void __fastcall DrawBackground();
    void __fastcall SetPixelFormatDescriptor();
    void __fastcall SetupRC();
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif