[mskvkin]

В uses подключи ActiveX

Код:

var
  EditFile: string;//сюда я присваивал имя дока

//Выполняем функцию для сохранения измененного текста
function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

WB_SaveHTMLCode(Webbrowser1,getcurrentdir+'\TempFi le\~listpreview~.html' ); //Здесь все сохраняется вставляешь код в обработчик к примеру кнопки и все работает и работает просто круто