Delphi: XML ファイルにスタイルシートを適用した結果を得る

こんなものでも書いておけば何かの役に立つかも無理やりアウトプット。

XML ファイルにスタイルシートを適用した結果を得る例(Delphi6, 最低限の処理＆エラー処理なし)

uses
  msxml;

procedure TForm1.Button1Click(Sender: TObject);
var
  XML: IXMLDOMDOCUMENT;
  XSL: IXMLDOMDOCUMENT;
begin
  XML := CoDOMDocument.Create;
  XML.async := False;
  XML.load('xsl_test.xml');

  XSL := CoDOMDocument.Create;
  XSL.async := False;
  XSL.load('xsl_test.xsl');

  Memo1.Text := XML.transformNode(XSL);
end;

先頭行に <Meta ? とかついてくるけど、必要に応じて消せばよし。