Problema arquivos .ini Android Delphi

Alguém pode analisar esse código e ver onde estou errando, pois não esta gravando o arquivo .ini.

Escrever:
Var
Lista: TListBoxItem;
i: integer;
ArquivoIni : TIniFile;
begin
Panel1.Visible := False;
CornerButton1.Enabled:= True;
if (edit1.Text <> '') and (Edit2.Text <> '') then
begin
Lista:= TListBoxItem.Create(ListBox1);
with Lista do
begin
Text := Edit1.text;
ItemData.Detail:= Edit2.text;
ItemData.Accessory:= TListBoxItemData.TAccessory(3);
StyleLookup := 'listboxitembottomdetail';
Size.Width := 388;
Size.Height := 50;
Size.PlatformDefault := False;
Visible := True;
Parent := ListBox1;
end;
i:= ListBox1.Count -1;
ArquivoIni := TInifile.Create(TPath.GetDocumentsPath + PathDelim + 'disk.ini');
ArquivoIni.WriteString('NOME', IntToStr(i), ListBox1.ListItems[i].Text);
ArquivoIni.WriteString('TELEFONE', IntToStr(i), ListBox1.ListItems[i].ItemData.Detail);
ArquivoIni.Free;
end;
end;


Ler:

var
i: integer;
ArquivoIni : TIniFile;
begin
if ListBox1.Count > 0 then
Begin
for i := 0 to ListBox1.count -1 do
begin
ArquivoIni := TInifile.Create(TPath.GetDocumentsPath + PathDelim + 'disk.ini');
ListBox1.ListItems[i].Text:= ArquivoIni.ReadString('NOME', IntToStr(i),'');
ListBox1.ListItems[i].ItemData.Detail:= ArquivoIni.ReadString('TELEFONE', IntToStr(i),'');
end;
ArquivoIni.Free;
end;