Delphi World - Записать содержимое окна OpenGL в BMP файл

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Записать содержимое окна OpenGL в BMP файл

Сидят два программера в офисе. Бац - звонок телефонный, на проводе шеф:
- Hу, ребята, чем занимаетесь?
- Козла забиваем!
- В домино играете ?!
- Да неееее - в DOOM!

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;