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:

//Statistikprozedur
procedure TForm2.Statistik;
var index : Integer;
begin
  //Stoerung wird einer Variablen zugewiesen
  stoerdummy := ComboBox1.Text + ComboBox2.Text + ComboBox4.Text + ComboBox5.Text;

  //Störungsdatei wird geladen
  Memo2.Lines.LoadfromFile('Statistik\Stoerungen'+'.txt');

  //zähle die Zeilen der geladenen Statistik
  anzahlStoerungen := Memo2.Lines.Count;

  //ordne jede Störung einer Variablen zu
  for index := 0 to anzahlStoerungen do begin
                                          stoerung[index] := Memo2.Lines[index];
                                        end;
  //Zählerdatei wird geladen
  Memo3.Lines.LoadfromFile('Statistik\Zaehler'+'.txt');

  //zähle die Zeilen der geladenen Zaehler
  anzahl := Memo3.Lines.Count;

  //ordne jede Störung einer Variablen zu
  for index := 0 to anzahl do begin
                                zaehler[index] := StrToInt(Memo3.Lines[index]);
                              end;
  //Dateien werden wieder abgespeichert
  Memo2.Lines.SaveToFile('Statistik\Stoerungen'+'.txt');
  Memo3.Lines.SaveToFile('Statistik\Zaehler'+'.txt');
end;					

1:

for index := 0 to anzahlStoerungen do begin					

1:

for index := 0 to pred(anzahlStoerungen) do begin					

1:

zaehler[index] := StrToInt(Memo3.Lines[index]);