Извиняюсь, это самописаня функция была.
Вот код:
function TLoginForm.GetBrowserHtml(const webBrowser: TWebBrowser): String;
var
strStream: TStringStream;
adapter: IStream;
browserStream: IPersistStreamInit;
begin
strStream := TStringStream.Create('');
try
browserStream := webBrowser.Document as IPersistStreamInit;
adapter := TStreamAdapter.Create(strStream,soReference);
if browserStream <> nil then begin
browserStream.Save(adapter,true);
result := strStream.DataString;
end else begin
result := 'Cannot find server';
end;
if result = '' then begin
result := 'Cannot find server';
end;
finally
end;
strStream.Free();
end;