Я НАШЕЛ!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
procedure TMainForm.ToolButton1Click(Sender: TObject);
var
str : string;
IpersFile: IPersistFile;
begin
IpersFile := WebBrowser1.Document as IPersistFile;
IpersFile.Save('test.txt', False);
end;