[dec]

Hola,

No sé hasta qué punto algo como lo siguiente podría sacarte del apuro:

Código Delphi [-]
uses
  SysUtils, SHDocVw, OleCtrls, ActiveX;

function WebBrowerDocumentSource(webBrowser: TWebBrowser) : string;
var
  ss: TStringStream;
  ips: IPersistStreamInit;
begin
  Result := EmptyStr;
  ss := TStringStream.Create(Result);
  try
    if Assigned(webBrowser) and Assigned(webBrowser.Document) then
    begin
      ips := webBrowser.Document as IPersistStreamInit;
      if Assigned(ips) and Succeeded(ips.Save(TStreamAdapter.Create(ss), true)) then
        Result := ss.DataString;
    end;
  finally
    ss.Free;
  end;
end;

El código fuente de la función anterior está basado en parte del código fuente del componente EmbeddedWB, escrito por Per Lindsø Larsen. Échale un vistazo, puesto que acaso te parezca bien hacer uso del mismo en lugar del "TWebBrowser" que acompaña a Delphi.