Как записать содержимое окна OpenGL в bmp файл?

gr - объект, в канве которого я рисую с помощью OpenGL

bt := TBitmap.Create;
with bt do
begin
  Width := gr.Width;
  Height := gr.Height;
  Canvas.CopyRect(ClientRect, gr.Canvas, gr.ClientRect);
  SaveToFile('e:\bt.bmp');
  Free;
end;