Get Source from TWebBrowser?

VAR
  MyStr : String;

begin
  MyStr := NMFTP.Body;
end;

Uses ActiveX;

var AStream:TMemoryStream;
Begin
  AStream:=TMemoryStream.Create;
  Try
  (WebBrowser1.Document as
IPersistStreamInit).Save(TStreamAdapter.Create(AStream),false);
  AStream.Seek(0,soFromBeginning);
  Memo1.Lines.LoadFromStream(AStream);
  Finally
  AStream.Free;
  End
End;

Stoney

Uhh den kunne jeg lige bruge :)