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;