Im Array Element löschen

[G4schi]

Guten Tag,

ich möchte in einem Array unter einem bestimmten Index den Eintrag löschen und dann das Array vom Index 0 wieder aufbauen.

Delphi-Quellcode:

 if sWort = sAusgabe then
        begin
          for z:=0 to Length(Kontaktliste) do
          begin
            //Wenn z=i dann soll neuer Durchlauf gestartet werden
            if z = i then
            Continue;
            //Die Länge des Arrays wird durch das Array selbst bestimmt, indem immer +1 addiert wird
            SetLength(Kontaktliste_2,Length(Kontaktliste_2)+1);
            //Übergibt die Werte aus dem 1.Array in das 2.Array
            Kontaktliste_2[z].Anrede := Kontaktliste[z].Anrede;
            Kontaktliste_2[z].Vorname := Kontaktliste[z].Vorname;
            Kontaktliste_2[z].Nachname := Kontaktliste[z].Nachname;
            Kontaktliste_2[z].Anschrift := Kontaktliste[z].Anschrift;
            Kontaktliste_2[z].Ort := Kontaktliste[z].Ort;
            Kontaktliste_2[z].PLZ := Kontaktliste[z].PLZ;
            Kontaktliste_2[z].Telefon := Kontaktliste[z].Telefon;
            Kontaktliste_2[z].Email := Kontaktliste[z].Email;
          end;

Das ist nur ein Teil des ganzen. Ich habe das Problem, wenn ich zB von 3 Einträgen, den zweiten Eintrag löschen will,
er den ersten Eintrag in ein zweites Array übernimmt, den dritten Eintrag,wieso auch immer, nicht übernimmt.

'z' wird nach dem Continue erhöht, aber es werden keine Werte übergeben.
Wenn dieser Part durchgelaufen ist, habe ich ein Array mit 2 Elementen, von den das letzte Element leer ist.

Liegt es vielleicht nicht an diesem Abschnitt?

MfG