谁能看懂这个代码，跟我讲讲

从begin开始起下面怎么像个树啊，不知道是什么东西啊。procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
   ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  RecvStr,UcNum,DestMobile,MsgID,Rest,SendTime:String;
  Node:IXMLNode;
  NodeList:IXMLNodeList;
  i,J:integer;
  MS:TMemoryStream;
begin
   if  ARequestInfo.Command = 'POST' then
     RecvStr:=ARequestInfo.UnparsedParams;
   ShowLog(RecvStr);
   if  RecvStr <> ''  then
   begin
      MS:=TMemoryStream.Create;
      try
        MS.WriteBuffer(RecvStr[1],Length(RecvStr));
        XMLDocument1.LoadFromStream(MS);
        Node:=XMLDocument1.DocumentElement;
        for i:=0  to Node.ChildNodes.Count-1 do
        begin
          for J:=0 to  Node.ChildNodes[i].ChildNodes.Count-1 do
          begin
            NodeList:= Node.ChildNodes[i].ChildNodes[J].ChildNodes;
            UcNum:= NodeList.Nodes[0].Text;
            DestMobile:= NodeList.Nodes[1].Text;
            MsgID:= DecodeString(NodeList.Nodes[2].Text);
            Rest:= NodeList.Nodes[3].Text;
            SendTime:= NodeList.Nodes[4].Text;
            ShowLog(UcNum+'  '+ DestMobile+'  '+MsgID+'  '+Rest+'  '+SendTime);