Réponse acceptée !
Si le debugger te surligne la ligne WriteString('po', 'po', po);
c'est que le problème vient en fait de la ligne du dessus, c'est à dire la première d'opération d'écriture : WriteString('pni', 'pni', pni);
Il ne faut pas mettre de " " dans le nom du fichier, c'est une erreur de ma part désolé.

Attention, ne met jamais deux free sur le même objet qui risquent de s'exécuter successivement, car c'est violation d'accès assurée en cas d'erreur sur le code qui suit le premier (ici par exemple si panel5.Hide; renvoie une erreur - oui c'est possible ! Il suffit d'une mauvaise organisation de fenêtres modales ou autres bizarreries...).

Même si ce cas d'erreur semble ici très rare, cela dépend totaement du code suivant le premier free, il vaut donc mieux être prudent et prendre l'habitude d'imbriquer les deux blocs try...except et try...finally

  with TIniFile.Create( ExtractFilePath(Application.ExeName) + 'save\' + Edit1.Text + '.ini') do
  try
    try
      WriteString('pni', 'pni', pni);
      WriteString('po', 'po', po);
      WriteString('nii', 'nii', nii);
      WriteString('nff', 'nff', nff);
      WriteString('n11', 'n11', n11);
      WriteString('n22', 'n22', n22);
      WriteString('calc', 'calc', calc);
      WriteString('calc2', 'calc2', calc2);
      WriteString('calc3', 'calc3', calc3);
    except
      ShowMessage('Impossible de sauver, verifiez la validité du nom de fichier');
    end;
  finally
    Free;
  end;

@+
Nico { [ Lien ] }

Réponse acceptée !
reprend le code de F0xi au lieu de passer par des variables inutiles:

  with TIniFile.Create(Path+Edit1.Text+'.ini') do
  try
    WriteString('pni', 'pni', nini.Text);
    WriteString('po', 'po', p.Text);
    WriteString('nii', 'nii', ni.Text);
    WriteString('nff', 'nff', nf.Text);
    WriteString('n11', 'n11', n1.Text);
    WriteString('n22', 'n22', n2.Text);
    WriteString('calc', 'calc', calc);
    WriteString('calc2', 'calc2', cone.Text);
    WriteString('calc3', 'calc3', c3.Text);
  finally
    Free;
  end;


 
@+
Cirec

---