如何在文本文件中(TXT)中写入字符串，在中间插入

Question

var Strings1, Strings2: TStrings;
Strings1:=LoadFromFile(F)
Strings2.Add(String1[0]);
Strings2.Add(String1[1]);
Strings2.Add('eee');
Strings2.Add(String1[2]);
Strings2.Add(String1[3]);
Strings2.SaveToFile(F);

Answer 1

procdure XXXX（）；
var
  myFile：Tinifile；
begin
  myFile:=Tinifile.Create(ExtractFilePath(paramstr(0))+"文件名.后缀");
  myFile.WriteString("文件名","字段","写入的信息");
  ......end写了这么多，我想够清晰的吧！！！！

Answer 2

var Strings1, Strings2: TStrings;
Strings1:=LoadFromFile(F)
Strings2.Insert(2,'eee');
Strings2.SaveToFile(F);