Arrays auf ungleichheit Prüfen

[Starworld1000]

zum veranschaulichen habe ich jetzt mal ein paar Codeschnipsel beigefügt.

Code:

...

Str2.Text:=(Copy(htmlcode,48,999));

...

SetLength(Stoer1, Str2.Count );

                for i := 0 to High(Stoer1) do
                        begin
                        Label6.Caption:=inttostr(i);
                        s:=Str2[i];
                        p1:=pos(':',s);             //Teilbereich1 Störzeit
                        SubStr := Copy(s,1, p1+6);
                        delete(s, 1, p1+6);

                        p1:=pos('/',s);             //Teilbereich2 Störbereich
                        SubStr2 := Copy(s,1, p1-1);
                        delete(s, 1, p1);

                        p1:=pos('/',s);             //Teilbereich3 Störmeldung
                        SubStr3 := Copy(s,1, p1-1);
                        delete(s, 1, p1);
         
         Stoer1[i, 0]:=Datetostr(now);
                        Stoer1[i, 1]:=Substr;
                        Stoer1[i, 2]:=Substr2;
                        Stoer1[i, 3]:=Substr3;
         end;

...

setlength(Stoer2,length(Stoer1));
for i:=0 to High(Stoer1) do
        begin
        If (Stoer2[i, 1] <> Stoer1[i,1]) or (Stoer2[i, 4] <> Stoer1[i,4]) then
                begin
                 Stoer2[i, 0]:=Stoer1[i, 0];
                 Stoer2[i, 1]:=Stoer1[i, 1];
                 Stoer2[i, 2]:=Stoer1[i, 2];
                 Stoer2[i, 3]:=Stoer1[i, 3];
...

                 end;
          end;
...

Richtig Stoer1 ist immer nur temporär solange eine Störung da ist oder nicht

Ich bin mir halt nicht sicher ob das überhaupt der richtige weg ist oder nicht ?
Ich muss halt mit dem String in STR2 arbeiten.

Der sieht wie folgt aus:
13:39:47/005/049/Störung Modul 02B ist ausgefallen
Ist die Störung behoben sollte sie so ungefähr in StoerDB stehen:
13.07.2017 | 13:39:47 | 005 | 049 | Störung Modul 02B ist ausgefallen | 13.07.2017 | 16:09:21

Nur irgendwie komme ich nicht mehr weiter