function ConvertWordFile(const InFilename, OutFilename: string): Boolean;
var
  wordApp: OleVariant;
begin
  Result := False;
  try
    wordApp := CreateOleObject('Word.Application');
    if VarIsEmpty( wordApp ) then
      exit;

    wordApp.Visible := False;
    wordApp.Documents.Open( InFileName,
                            false,   // ConfirmConversions
                            true );  // ReadOnly

    wordApp.ActiveDocument.SaveAs2( OutFilename, wdFormatDocument );

    wordApp.Quit(wdDoNotSaveChanges, EmptyParam, EmptyParam);
    wordApp := Unassigned;

    Result := True;
  except
    // Word error
  end;
end;