Recuperar el código completo de una página

procedure RecuperarContenido1(CurrentWB: TWebBrowser; var Code: String);
begin
  // recuperación de todo el código
  Code := (CurrentWB.Document as IHTMLDocument3).documentElement.outerhtml;
end;

function RecuperarContenido2(WB: TWebBrowser): String;
var
  PersistStream: IPersistStreamInit;
  Stream: IStream;
  StrStream: TStringStream;
begin
  // comprobamos que haya alguna página cargada
  if not Assigned(WB.Document) then
  begin
    Result := '';
    Exit;
  end;
 
  // TWebBrowser.Document implementa las funcionalidades de la interfaz
  // IPersitStream. Pedimos el accedo.
  PersistStream := WB.Document as IPersistStreamInit;
 
  // creación de un flujo de carácteres (vacÃo al inicio)
  StrStream := TStringStream.Create('');
  try
    // vreamos una instancia de TStreamAdapter pidiendo las funcionalidades
    // de la interfaz IStream. Será nuestro "puente" entre el stream de
    // carácteres y el documento HTML.
    Stream := TStreamAdapter.Create(StrStream, soReference) as IStream;
    // intentamos guardar el documento en el stream creado
    if Failed(PersistStream.Save(Stream, True)) then
      Result := ''
    else
    begin
      // si ha funcionado bien, ponemos el stream de carácteres al inicio
      StrStream.Position := 0;
      // y devolvemos su contenido
      Result := StrStream.Read(StrStream.Size);
    end;
  finally
    StrStream.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := RecuperarContenido2(WebBrowser1);
end;