1:
2:
3:
4:
5:
6:

Procedur beliebig;
begin
  Zaehlemich(beliebig);
  .
  .
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

  
Beispiel Liste: Die Null muß nicht vorgegeben werden, macht den ersten Start aber schneller

Procedure1 0
Procedure2 0
.
.

  Procedure TForm3.Counter(Path,was : String);
  var
  CounterTab:     TStringList;
  i,x,y,zb:       Integer;
  sb,zw,za,womit: String;

  begin
    womit := was;
    CounterTab := TStringList.Create;//Hier nur für die Demo. Besser in das Ereignis "ProgramStart"
    try
      CounterTab.LoadFromFile(Path);//Hier nur für die Demo. Besser in das Ereignis "ProgramStart"
      for i := 0 to CounterTab.Count - 1 do
      begin
        sb := CounterTab.Strings[i]; //Nur um nicht so viel zu tippeln..
        If Pos(' ',sb) > 0  then  //Enthält die Marke bereits einen Eintrag
        delete(sb,Pos(' ',sb),(length(sb)-pos(' ',sb))); //wird er hier entfernt
        if (Pos(was,CounterTab.Strings[i]) > 0) then  //um "was" zu finden.
        begin
          sb := CounterTab.Strings[i]; //Nur um nicht so viel zu tippeln..
          x := length(sb); //dito
          y := Pos(' ',sb);
          za := copy(sb,y,(x - y + 1));
          If za = was then za := '0'; //Falls noch kein Eintrag vorhanden ist, Wert auf Null setzen
          zb := StrtoInt(za); //Eingetragener Wert als Integer
          inc(zb); //um 1 erhöhen
          zw := InttoStr(zb); // wieder zum String konvertieren
          womit := womit + ' ' + zw;  //an "was" dranhängen
          CounterTab.Strings[i] := was; //und zurück in die Liste
          CounterTab.Strings[i] := StringReplace(CounterTab.Strings[i],was,womit,[rfReplaceAll,rfIgnoreCase]);
        end;
      end;
      //Hier nur für die Demo. Besser in das Ereignis "ProgramEnde"
      CounterTab.SaveToFile(Path);
    finally
    CounterTab.Free;
    end;
  end;

Aufruf: counter(PfadzurListe,Procedurename);