StringGrid Problem (löschen und auslesen)

[Barret]

Delphi-Quellcode:

 while StringGrid.RowCount > 1 do
        begin
          iAuslagerung := Random(StringGrid.RowCount);

          if (StringGrid.Cells[1, iAuslagerung] = 'man 1') then
            if (StringGrid.Cells[0, iAuslagerung] = 'chance') then
              for i := Image.Left downto 100 do
                begin
                  Image.Left := i;
                  Sleep(50);
                end
            else
              for i := Image.Left downto 50 do
                begin
                  Image.Left := i;
                  Sleep(50);
                end;

          if not (iAuslagerung = StringGrid.RowCount) then
            for i := iAuslagerung to StringGrid.RowCount - 1 do
              StringGrid.Rows[i] := StringGrid.Rows[i + 1];  //alle Einträge eine Zeile hochzihen
          StringGrid.RowCount := StringGrid.RowCount - 1;

          Image.Left := ((Image2.Width div 2) + Image2.Left) - (Image.Width div 2);
        end;

Bei dem Quelltext hab ich das Problem, dass ich zu keinem Ergebnis komme (Das Programm stürtzt ab!!!).
Er soll die Felder des Grids auslesen und dann je nach dem die Anweisung durchführen. Danach dann die Inhalte des Grids verschieben und die Länge um eins subtrahieren. Er soll aufhören, wenn alle Einträge abgearbeitet sind.

Ich seh keinen Fehler und bin über Hilfe verbunden.
mfg