Suchalgorithmus (straight sort) nicht ganz

mille

Erfahrenes Mitglied
Hier im folgenden Code passiert garnichts. Es muss ich um einen klitzekleinen Fehler handeln, ich seh Ihn aber nicht. Vielleicht wer andres?
erklärung:
info_db ist ein array das aus Tprojekte Besteht
TProjekte ist ein Record mit 5 verschiedenen untergeordneten Variablen
choose ist eine listbox

Ziel: ich möchte das Array ordnen, anhand der Kunden, ersteinmal. Aber das klappt nicht ganz ... wie gesagt.

Code:
procedure sortiern;
var i,j  : integer;
    merke : TProjekte;
Begin
x:= form1.choose.items.Count;
for i:=2 to x DO
        Begin
          Merke := info_db[i];
          j := i;
          while (j > 1) AND (info_db[j-1].kunde > Merke.kunde) DO
            Begin
              info_db[j]:=info_db[j-1];
              Dec(j);
            end;
          info_db[j] := merke;
        end;
 end;

damit sollte alles wisseneswerte niedergeschrieben worden sein ;)
hoffe ihr koennt helfen