Преобразование DOC в HTML на Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, HtmlName, FileFormat:OleVariant;
begin
  FileName:='c:\qqq.doc';
  HtmlName:='c:\qqq.html';
  FileFormat:=wdFormatHTML;
  WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,
                                  EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
  WordDocument1.SaveAs(HtmlName,FileFormat);
  WordDocument1.Close;
  WordApplication1.Quit;
end;