WGYKING(修罗是谁？！) 用了你的方法，出现了一个问题。

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    btnLoad: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    btnSave: TButton;
    procedure btnLoadClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSaveClick(Sender: TObject);
  private
    StrList, TempStrList: TStringList;
  public
    { Public declarations }
  end;const
  FileName = 'd:\aaa.txt';var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.btnLoadClick(Sender: TObject);
var
  I: Integer;
  Index: Integer;
  Str: String;
begin
  StrList.LoadFromFile(FileName);  TempStrList.Capacity := 4;  for I := 67 to 70 do
  begin
    Str := StrList[I];
    Index := Pos(':', Str);
    StrList[I] := Copy(Str, 1, Index);
    TempStrList.Add(Copy(Str, Index + 1, Length(Str)));
  end;  Edit1.Text := TempStrList[0];
  Edit2.Text := TempStrList[1];
  Edit3.Text := TempStrList[2];
  Edit4.Text := TempStrList[3];
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  StrList := TStringList.Create;
  TempStrList := TStringList.Create;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  StrList.Free;
  TempStrList.Free;
end;procedure TForm1.btnSaveClick(Sender: TObject);
var
  I: Integer;
begin
  TempStrList[0] := Edit1.Text;
  TempStrList[1] := Edit2.Text;
  TempStrList[2] := Edit3.Text;
  TempStrList[3] := Edit4.Text;  for I := 0 to 3 do
    StrList[I + 67] := StrList[I + 67] + TempStrList[I];  StrList.SaveToFile(FileName);
end;end.
---------------------
用了这个方法以后，如果多点几次保存按钮。内容就会累加。