Sortieralgo

[Rastaman]

Juhuu.
Ich wollt son eigenen kleinen (wahrscheinlich auch seeehr langsamen) Sortieralgo machen und wollt mal fragen warum ich bei diesem Code den Fehler Access Violation at Adress 00000000 oder auch mal 000000018 bekomme

Delphi-Quellcode:

var
  sl: TStringList;
  i, i2: Integer;
  smallest: String;
begin
  sl := TStringList.Create;
  i := ListBox1.Items.Count - 1;
  Repeat
    smallest := ListBox1.Items.Strings[0];
    For i2 := 0 to i - 1 do begin
        if ListBox1.Items.Strings[i2 + 1] < smallest then
          smallest := ListBox1.Items.Strings[i2 + 1];
    end;
    i := i - 1;
    sl.Add(smallest);
  Until i = 1;

  ListBox1.Items.Free;
  For i := 0 to sl.Count - 1 do
    ListBox1.Items.Add(sl.Strings[i]);