Funktion kommt beim sortieren des Array durcheinander

[Popov]

Ich verwalte paar Infos über ein Record-Array. Das einzig besondere dabei ist die Bitmap. Da ich vorher nicht weiß wie viele Einträge ich benötige, wird die Array dynamisch verwaltet, d. h. kommt ein neuer Eintrag dazu, wird er hinzugefügt, wird ein Eintrag nicht mehr benötigt, bekommt er zuerst einen Delete Vermerkt. Erst auf Anweisung wird das Array dann bereinigt. Dazu habe ich die untere Funktion.

Unabhängig davon ob die Funktion effektiv ist, bringt sie gelegentlich, nicht immer, einiges durcheinander. Nur erkenne ich kein Muster. Irgendwann sind einige Infos durcheinander, aber nie alles. Wo liegt der Fehler?

Delphi-Quellcode:

type
  TInfo = record
    Textinfo: Integer;
    Bmp: TBitmap;
    Delete: Boolean;
  end;

var
  Info: array of TInfo;

procedure ClearArray;
var
  i, k: Integer;
begin
  for i := High(Info) downto 0 do
  begin
    if Info[i].Delete then
    begin
      if i = High(Info) then //Ausnahme für High(Info)
      begin
        Info[High(Info)].Bmp.Free;
        SetLength(Info, Length(Info) - 1);
        Continue;
      end;

      for k := i to High(Info) - 1 do //Rest
      begin
        Info[k].Textinfo := Info[k+1].Textinfo;
        Info[k].Bmp.Assign(Info[k+1].bmp);
        Info[k].Delete := Info[k+1].Delete;
      end;
      Info[High(Info)].Bmp.Free;
      SetLength(Info, Length(Info) - 1);
    end;
  end;
end;