1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

IF (abschlussbox.count)<>-1                                      //Sofern Einträge existieren, arbeite die Anweisungen ab
        Then begin
              p:= abschlussbox.count;                           //Es werden die Einträge der ListBox gezählt
              for i := 0 to p do begin                           //Wiederhole das alles solange, bis p alle Einträge durch hat
              s3:= formatiert.Items[0];                         // s3 ist der vorhandene String (auch wenn hier irreführend bezeichnet)  
              s := abschlussbox.Items[i];                       //String aus der ListBox im jeweiligen Schritt
              _pos := Pos(abschlussbox.Items[i],s3);            //suche die Position (aktueller Eintrag der ListBox) im String s3
              Delete(s3, _pos, length(abschlussbox.Items[i]));  //lösche aus s3 ab der Position des aktuellen ListBox-Eintrages alle Zeichen, wie der aktuelle String der ListBox lang ist
              formatiert.Items[0] := s3;                        //Gebe den bearbeiteten String s3  wieder aus
              end;
              end;					

1:

for i := 0 to p - 1 do begin