100分！！！！！！！！！！！！！！

试试以下代码：
var
  MyStringList:TStringList;
  i:integer;
begin
  MyStringList:=TStringList.Create;
  try
    MyStringList.LoadFromFile(textname);
    for i:=0 to MyStringList.Count-1 do
      MyStringList[i]:=Copy(MyStringList[i],1,12)+IntToStr(StrToInt(trim(Copy(MyStringList[i],13,2)))+1);
    MyStringList.SaveToFile(textname);
  finally
    MyStringList.Free;
  end;