Title: How to duplicate a TWebbrowser Document
procedure WB_Duplicate(WB1, WB2: TWebbrowser);
var
URL: string;
begin
// get the URL of WB1
URL := WB1.LocationURL;
// navigate to the URL with WB2
WB2.Navigate(URL);
// wait until document loaded
while (WB2.ReadyState READYSTATE_COMPLETE) and not (Application.Terminated) do
begin
Application.ProcessMessages;
Sleep(0);
end;
// duplicate contents (i.e. user-entered text)
(WB2.Document as IHTMLDocument2).body.innerHTML :=
(WB1.Document as IHTMLDocument2).body.innerHTML;
end;