1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

uses ActiveX;

procedure WebBrowserScreenShot(const AWebBrowser: TWebBrowser; bmp:TBitMap) ;
var
  viewObject : IViewObject;
  rect       : TRect;

begin
  Assert(Assigned(AWebBrowser.Document));
  AWebBrowser.Document.QueryInterface(IViewObject, viewObject);
  if Assigned(viewObject) then
    try
        rect := Classes.Rect(0, 0, AWebBrowser.Width, AWebBrowser.Height);

        bmp.Height := AWebBrowser.Height;
        bmp.Width  := AWebBrowser.Width;

        viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Application.Handle, bmp.Canvas.Handle, @rect, nil, nil, 0) ;
    finally
      viewObject._Release;
    end;
end;

procedure TForm2.FormDblClick(Sender: TObject);
var
 bmp:TBitMap;
begin
  bmp:=TBitMap.Create;
  try
   Webbrowser1.visible := false;
   WebBrowserScreenShot(Webbrowser1,bmp);
   Image1.picture.bitmap.assign(bmp);
  finally
    bmp.Free;
  end;
end;