TStringgrid zählt nur bis 10

[mmw]

hallo,
vielleicht funktioniert dies -

Delphi-Quellcode:

var
  i, j, z: Integer;
begin

 z := 0;

  with StringGrid1 do
  begin
    for i := 0 to StringGrid1.RowCount - 1 do
      for j := 0 to stringgrid1.ColCount - 1 do

      begin
        if Cells[j, i] = '' then
        begin
          inc(z);
          Stringgrid1.Cells[j, i] := IntToStr(z);
        end;
      end;
  end;
end;

'Delphi Hilfe'

property Cells[ACol, ARow: Integer]:

Gruß