Делаю так:
procedure GetHtmlCode(WebBrowser: TWebBrowser; FileName: string);
var
htmlDoc: IHtmlDocument2;
PersistFile: IPersistFile;
begin
htmlDoc := WebBrowser.document as IHtmlDocument2;
PersistFile := HTMLDoc as IPersistFile;
PersistFile.save(StringToOleStr(FileName), true);
end;
В одном проекте сохраняет без тегов, в другом с тегами ))
Подскажите пожалуйста в чем может быть проблема.

Проблема оказалась в расширении фалйла O_0