示例如下：

Var
ts:tstrings;
begin
...
ts:=tstringlist.create;
ts.loadfromfile(yourfilename);
ts.delete(6); // delete line 6
ts.delete(4); // delete line 4
ts.savetofile(yourfilename);
ts.free;
end;