Code:

procedure TForm1.Button1Click(Sender: TObject);

var

ViewObject: IViewObject;

sourceDrawRect: TRect;

begin

if EmbeddedWB1.Document < > nil then

try

EmbeddedWB1.Document.QueryInterface(IViewObject, ViewObject);

if ViewObject < > nil then

try

sourceDrawRect := Rect(0, 0, Image1.Width, Image1.Height);

ViewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,

image1.Canvas.Handle, @sourceDrawRect, nil, nil, 0);

finally

ViewObject._Release;

end;

except

end;

end;