[KOOL]

можно через ini или типизированный файл. если нужен именно txt то вот:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var Fi : TextFile;
    str : TStringList;
    s : string;
    i : integer;
begin
  AssignFile(Fi, ExtractFilePath(paramstr(0))+'testtext.txt');
  If not FileExists(ExtractFilePath(paramstr(0))+'testtext.txt') Then
    begin
      Rewrite(Fi);
      CloseFile(Fi);
    end;
  Reset(Fi);
  str := TStringList.Create;
  While not EoF(Fi) Do
    begin
      Readln(Fi, s);
      str.Add(s);
    End;
  CloseFile(Fi);
  i:=0;
  If str.Count>0 Then
    While (i<str.Count) And (Pos('"'+Edit1.Text+'"', str[i])=0) Do
      inc(i);
  If i>=str.Count Then
    str.Add('"' + Edit1.Text + '"' + ' 1')
  else
    str[i] := '"' + Edit1.Text + '"' + ' ' + IntToStr(StrToInt(Copy(str[i], Length(Edit1.Text)+4, Length(str[i])-Length(Edit1.Text)+4)) + 1 );
  Rewrite(Fi);
  For I := 0 To str.Count-1 Do
    Begin
      Writeln(Fi, str[i]);
    End;
  CloseFile(Fi);
end;