Suchalgorithmus (straight sort) nicht ganz

[mille]

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.

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