procedure TForm1.Button2Click(Sender: TObject);
var
 PSI: IPersistStreamInit;
 OleStream: IStream;
 MemStream: TMemoryStream;
 Adapter: TStreamAdapter;
begin
 WebBrowser1.Navigate('http://delphimaster.ru/cgi-bin/http://pda.delphimaster.net/?id=1167679059&n=8');
 while WebBrowser1.ReadyState <> READYSTATE_COMPLETE do Application.ProcessMessages;
 PSI:= WebBrowser1.Document as IPersistStreamInit;
 MemStream:= TMemoryStream.Create;
 try
   OleStream:= TStreamAdapter.Create(MemStream) as IStream;
   PSI.Save(OleStream, false);
   MemStream.Position:= 0;
   Memo1.Lines.LoadFromStream(MemStream);
 finally
   MemStream.Free;
 end;
end;