Помогите исправить ошибку!

[Юлия92]

procedure TForm_Main.process;
var iNode:IXMLNode; 
i,j,k:integer;mn:man_info;
  str:String;
begin
iNode:=xml.DocumentElement;   
push_node(iNode);                   
for i:=0 to iNode.ChildNodes.Count-1 do     
  begin
  iNode:=iNode.ChildNodes;     
  push_node(iNode);               

  iNode:=iNode.ChildNodes.FindNode('СвДохСтав');
  push_node(iNode);                 
  iNode:=read_node();         
   iNode:=iNode.ChildNodes.FindNode('СтандВыч');
   push_node(iNode);
   for k:=0      to iNode.ChildNodes.Count-1 do
   begin
   iNode:=iNode.ChildNodes[k];
      push_node(iNode);
      iNode:=read_node();

    iNode:=iNode.ChildNodes.FindNode('КодВыч');
    mn.kodVich:=iNode.NodeValue;
      iNode:=pop_node();
    iNode:=read_node;       
         
    iNode:=iNode.ChildNodes.FindNode('СумВыч');
 
str:=iNode.NodeValue;  //вот здесь выдает ошибку!!!
    for j:=1 to Length(str) do
      if str[j]='.' then
        str[j]:=DecimalSeparator; 
    mn.sumVich:=str;
    end;
 
   iNode:=pop_node;

   end;
  iNode:=pop_node();
  iNode:=pop_node();
  iNode:=read_node;
 
begin
AddtoSG(mn); 
  end;
iNode:=pop_node(); 
end;

[InfStudent]

А конкретней ошибку?