var
  XMLNode: IXMLNode;
  i:Integer;
begin
        XMLDocument1.XML.Clear;
        XMLDocument1.XML.Text := NetHTTPTelefonRehberi.Get('http://xxx.telsam.com.tr/?username=ApiKullanıcıAdı&password=ApiŞifre&action=phonedirectory').ContentAsString;
        XMLDocument1.Active := True;
        UniStringGrid3.RowCount:=XMLDocument1.DocumentElement.ChildNodes.Count;

       for i:=0 to XMLDocument1.DocumentElement.ChildNodes.Count -1 do
        begin
            XMLNode := XMLDocument1.DocumentElement.ChildNodes[i];
            UniStringGrid3.Cells[0,i]:=(i+1).ToString;
            UniStringGrid3.Cells[1,i]:=XMLNode.ChildNodes['Name'].Text;
            UniStringGrid3.Cells[2,i]:=XMLNode.ChildNodes['Telephone'].Text;
        end;

    End