[[Lepe]]

No uses un TStrings (ya que es una clase abstracta) usa un TStringList (el uso es el mismo).

¿Cual es el problema?
Lo único que tienes que hacer, es llamar a LoadFromfile y savetofile, por ejemplo

Código Delphi [-]
var Origen, Destino :TStringList;
begin 
  Origen := TStringList.Create;
  Destino := TStringList.Create;
  
  Origen.LoadFromFile(....);
  Destino.LoadFromFile(....); // para que se vayan agregando las nuevas lineas
  if origen.Count-1 > 19 then // si existe la linea 19
  begin
    Destino.Add(Origen[19]);
    Destino.SaveTofile(....);
  end;
  Origen.Free;
  Destino.Free;
end;

Si los archivos son muy grandes (en tamaño) quizás convenga otra forma (no cargar todo el archivo, solo la parte que quieres pillar).


Saludos