[Karsh]

Код:

if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;

Это условие не в цикле, исполняться оно будет только один раз, поэтому инкрементировать j бессмысленно и поэтому запись в ini будет исполняться лишь один раз.