Réponse acceptée !
Salut,
ton problème viens d'ailleurs je pense, l'utilisation de WriteString ne réécris pas les entrées existantes à moins qu'on lui demande mais du moment que "Ident" est unique il l'ajoute au fichier.

Voici un petit exemple qui fonctionne:
procedure TForm1.Button11Click(Sender: TObject);
Var I, Nbr : Integer;
begin
  With TIniFile.Create('c:\abc.ini') do
  Begin
    Nbr := ReadInteger('Nombres d''entrées', 'Nbr', 1);
    For I := Nbr to Nbr + 4 do
    WriteString('Section 1', 'Idx'+ IntToStR(I), 'Valeur Teste');
    WriteInteger('Nombres d''entrées', 'Nbr', I);
    Free;
  End;
end;


@+
Cirec