Modificacion de un archivo de texto

[omarifr]

Saludos disculpen si no estoy en el Foro correcto, necesito una aplicacion que lea un archivo y modifica cierta linea del cuerpo del archivo. Ejem.

"Este es
el cuerpo
del archivo <--Debo modificar esta linea y cambiarla por una cadena
a modificar"

AssignFile(Fichero,'C:/X Muestra/Layout.txt');
Reset(Fichero);
while Eof(Fichero)=False Do
begin
readln(Fichero,Linea);
Estoy utilizando readln() pero solo me permite leer la cadena del archivo y no puedo modificarla y si uso el rewrite me borra todo el contenido.
¿Como puedo hacer para modificar una sola linea sin tocar el demas texto del archivo?

Agradeceria mucho si ayuda.

[roman]

Podrías usar un StringList:

Código Delphi [-]
var
  Archivo: TStringList;

begin
  Archivo := TStringList.Create;
  Archivo.LoadFromFile('C:\X Muestra\Layout.txt');

  {
    Aquí accedes a las líneas del archivo por índice:

    Archivo[0], Archivo[1], Archivo[2],...

    y puedes cambiar cada una por separado
  }

  Archivo.SaveToFile('C:\X Muestra\Layout.txt');
  Archivo.Free;
end;

// Saludos

[omarifr]

Muchisimas Gracias es gusto lo que necesitaba.

[<Sergio>]

Empezado por roman

Podrías usar un StringList:

Código Delphi [-]
 var
   Archivo: TStringList;
 
 begin
   Archivo := TStringList.Create;
   Archivo.LoadFromFile('C:\X Muestra\Layout.txt');
 
   {
     Aquí accedes a las líneas del archivo por índice:
 
     Archivo[0], Archivo[1], Archivo[2],...
 
     y puedes cambiar cada una por separado
   }
 
   Archivo.SaveToFile('C:\X Muestra\Layout.txt');
   Archivo.Free;
 end;

// Saludos

Pues es una de las mejores respuestas que he visto, realmente le has simplificado las cosas.