TWebbrowser - Quellcode auslesen

[ferby]

Keiner eine Ahnung warum der Quellcode abgeschnitten wird?

Also ich verwende jetzt diese Funktion

Delphi-Quellcode:

function WB_GetHTMLCode(WebBrowser: TWebBrowser): widestring;
var
  ps: IPersistStreamInit;
  ss: TStringStream;
  sa: IStream;
  s: string;
  bool: boolean;
begin
  // Warten bis Quellcode fertig heruntergeladen ist
  repeat
    Application.ProcessMessages;
  until WebBrowser.ReadyState >= 3;

  ps := WebBrowser.Document as IPersistStreamInit;
  s := '';
  ss := TStringStream.Create(s);
  try
    sa := TStreamAdapter.Create(ss, soReference) as IStream;
    bool := Succeeded(ps.Save(sa, True));
    if bool then Result:=ss.Datastring;
  finally
    ss.Free;
  end;
end;

Und sie Funktioniert eigentlich, allerdings wenn ich eine Website eingebe, mit einen langen HTML Quellcode dann werden trotzdem nur ca.
4000 zeichen zurückgegeben, warum?