Convert HTML File to XML File

Convert HTML file to XML file.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    HTMLTOXMLLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
htmlToXml: THtmlToXml;
success: Integer;

begin


htmlToXml := THtmlToXml.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := htmlToXml.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('HtmlToXml component unlock failed');

  end;

//  Indicate the charset of the output XML we'll want.
htmlToXml.XmlCharset := 'utf-8';

success := htmlToXml.ConvertFile('test.html','out.xml');
if (success <> 1) then
  begin
    ShowMessage(htmlToXml.LastErrorText);
  end
else
  begin
    ShowMessage('Success');
  end;


end;