Modifier des données dans un endroit precis dans un txt

Salut a tous,
Je cherches un moyen de modifier des données dans un fichier TXT, ci-dessous c est ce j utiliser pour afficher les données qui se trouve en dessous de [TEST], biensur il y en a d autres mais c est celui la ou un autre qui m interesse. Avec ce codes je peux le trouver dans le fichier et l afficher. Je ne sais pas comment je peux faire pour adapter ce code de maniere a ce que ca trouve TEST et que ca modifie ce qu il ya en dessous.

Qq un pourrais me filé un coup de pousse ?
Merci d'avence.
----------------------------------------------
var
   F:TextFile;
   ligne,code:string;

begin

    AssignFile(F,'Settings.ini');
    reset(F);

  code:='[' + uppercase('TEST') + ']'; 

  while not EOF(F) do
  begin
    readln(F,ligne);
    if pos(code,ligne)<>0 then
    begin

      while (ligne<>'') do
      begin
        readln(F,ligne);
        form1.Memo1.Lines.Add(ligne);

  end;
  Closefile(F);