[Gudzik11]

Здравствуйте !
Подскажите пожалуйста как сделать

Код:

begin
    j:=1;
    for i := 0 to XMLItem.SubItemCount-1 do   DrawXMLItem(XMLItem.SubItems[i]);
    if Trim(XMLItem.Name)='a' then
    begin
     Memo2.Lines.Add(XMLItem.Text);
     ini.WriteString(IntToStr(j),'Day',XMLItem.Text);
     j:=j+1;
     end;
 
  end;

Чтоб каждое слово которое найдено писалось в новой переменной ini .


В моём коде в Memo выводиться 8 слов а в ini записывается только 1 и самое последнее .