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(....); if origen.Count-1 > 19 then 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