procedure TForm1.bbReadXMLClick(Sender: TObject);
var
  XMLDoc: TXMLDocument;
  Node,NodeSvc: IXMLNode;
  i,j,l:Integer;
begin
    CoInitialize(nil);
    XMLDoc:= TXMLDocument.Create(nil);
    XMLDoc.LoadFromFile('otvet3.xml');   // ExtractFilePath(Application.ExeName)+
    XMLDoc.Active := true ;
    Node:=XMLDoc.DocumentElement;
    l:=Node.ChildNodes.Count- 1   ;
    ....... и  т.д. ....

<?xml version="1.0" encoding="windows-1251"?>
<Provs_Lst> 
	<Prov id="1"> 
		<name>Поставщик_1</name> 
		<Prov_Svcs> 
			<Svc id="1"> 
				<Svc_Name>Вид_оплаты_1</Svc_Name> 
				<min_amount> 1000 </min_amount> 
			</Svc> 
			<Svc id="2"> 
				<Svc_Name>Вид_оплаты_2</Svc_Name> 
				<min_amount> 5000 </min_amount> 
			</Svc> 
		</Prov_Svcs> 
	</Prov> 
	<Prov id="5"> 
		
	</Prov> 
</Provs_Lst>