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;