Использование XML

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, MSXML2_TLB, Vcl.StdCtrls, ComObj;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  vXMLParserError:IXMLDOMParseError2;
  vXMLSchema:IXMLDOMSchemaCollection2;
  vXMLDoc:IXMLDOMDocument2;
  vXMLSchemaDoc:IXMLDOMDocument2;
  vStrs:TStringList;
  CodError:IXMLDOMParseErrorCollection;
  //CoDOMDocument60:CoDOMDocument;
   i :Integer;
begin
  vStrs := TStringList.Create();
  try
    //Загрузка схемы
    // путь к схеме 'c:\test\ListForRating_v04\ListForRating_v04.xsd'
    vXMLSchema:= CoXMLSchemaCache60.Create();
    vXMLSchemaDoc:= CoDOMDocument60.Create();
    vStrs.LoadFromFile( 'c:\test\ListForRating_v04\ListForRating_v04.xsd' );
    vXMLSchemaDoc.loadXML( vStrs.Text );
    if vXMLSchemaDoc.parseError.errorCode <> 0 then
      begin
        ShowMessage(Format('Ошибка при загрузке схемы <%s: %s>', [vXMLSchemaDoc.parseError.reason, vXMLSchemaDoc.parseError.srcText]));
        Exit;
      end;
    vXMLSchema.add('', vXMLSchemaDoc);
//Загрузка документа
    vXMLDoc:= CoDOMDocument60.Create();
    vXMLDoc.async := False;
    vXMLDoc.resolveExternals := false;
    vXMLDoc.validateOnParse := false;
    vXMLDoc.setProperty('MultipleErrorMessages',true);
    vStrs.Clear();
    vStrs.LoadFromFile( 'c:\test\ListForRating_v04\ListInfo_landRecord_003002000000_ed0b1077-d61a-447a-aa0f-fb80d4dcdaa2.xml' );
    vXMLDoc.loadXML( vStrs.Text );
    vXMLDoc.schemas := vXMLSchema;
    vXMLParserError := vXMLDoc.validate as IXMLDOMParseError2;
    Memo1.Clear;
    if vXMLParserError.errorCode <> 0 then
      begin
         CodError := vXMLParserError.allErrors;
         for I := 0 to CodError.length-1 do
        begin
        Memo1.Lines.Add(CodError.item[i].reason);
        Memo1.Lines.Add('*****');
        end;
      end
    else
      ShowMessage( 'Валидация документа проша успешно' );
  finally
    FreeAndNil( vStrs );
  end;
end;
 
end.

    vXMLSchema:= CoXMLSchemaCache60.Create();
    vXMLSchemaDoc:= CoDOMDocument60.Create();

vXMLSchema:= CreateComObject('CLASS_XMLSchemaCache60') AS IXMLDOMSchemaCollection2;