delphi – 在OpenGL渲染上下文之上叠加图形

我已经设法让它运行起来但是FPS的下降有点太多了.

我目前正在将GLScene与Graphics32结合使用.

我所做的是将GLScene渲染上下文渲染为位图,
将该位图应用于TImageView32,并在TImage32内部进行最终的UI触摸.

我用来渲染到位图的代码如下,这也减少了FPS：

procedure RenderToBitmap;
  var b: TBitmap;
begin
  b:=TBitmap.Create;
  b:=GLSceneViewer.Buffer.CreateSnapShotBitmap; //TGLSceneViewer
  ImgVwr32.Bitmap.Assign(b); //TImageViewer32
  b.Free;
end;

我已经尝试了一些其他代码(见下文),它给了我一个实时渲染,但我不能
修改ImageViewer32的“位图”属性.换句话说：正在渲染GLScene渲染上下文,但没有渲染我自己的图形.
代码：

//The following line is put inside the FormCreate call
GLSceneViewer.Buffer.CreateRC(GetDC(ImgVwr32.Handle),false);

如何在渲染上下文之上正确叠加图形,或者复制渲染上下文输出,而不会丢失FPS？