1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

      
      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;					

1:
2:
3:

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