TStringgrid zählt nur bis 10

[akazukilp]

Hm klappt immer noch nicht.
kann mir jemand einen Hint geben was genau ich falsch mache

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, J, z : Integer;
begin
  z := 751;
    with StringGrid1 do
    begin

      for i := 1 downto Stringgrid1.Rowcount -1 do
         for J := 1 downto Stringgrid1.ColCount -1 do

          begin
            z := (z)-1;
            Stringgrid1.Cells[J, i] := IntToStr(z);
          end;
    end;
end;