//    SaveDialog2.FileName := '1.html';
  //  if SaveDialog2.Execute then begin
      s.Add('');
      wb.OleObject.document.selection.createRange().execCommand('Paste');
      s.Add(wb.OleObject.document.body.innerHTML);
      s.Add('');
    //  s.SaveToFile(SaveDialog2.FileName);
//    end;

  s: TStringList;
  wb: TWebbrowser;
begin
  s := TStringList.Create;
  wb := TWebbrowser.Create(self);
  try
    wb.Navigate('about:blank');
    if RichEdit1.SelLength = 0 then
      RichEdit1.SelectAll;
    RichEdit1.CopyToClipboard;
    RichEdit1.SelLength := 0;
      SaveDialog2.FileName := '1.html';
     if SaveDialog2.Execute then begin
      s.Add('');
      wb.OleObject.document.selection.createRange().execCommand('Paste');
      s.Add(wb.OleObject.document.body.innerHTML);
      s.Add('');
      s.SaveToFile(SaveDialog2.FileName);
     end;
  finally
    s.Free;
    wb.Free;
  end;

var
vs_FileName, vi_wdFormatHTML : OleVariant;
begin
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;

// load the stringlist content into a word document
WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
WordApplication1.ActiveDocument.Content.Paste;

// save as html
vs_FileName := 'c:\final.htm';
vi_wdFormatHTML := 8;
WordApplication1.ActiveDocument.SaveAs( vs_FileName, vi_wdFormatHTML, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.ActiveDocument.Close(EmptyParam, EmptyParam, EmptyParam);
WordApplication1.Quit;