TStringgrid zählt nur bis 10

[akazukilp]

Hallo zusammen,

ich bin neu was das programmieren angeht und versuche heute ein Programm zu schreiben, dass in einem Stringgrid das 75 Col und 10 Rows hat diese von 1 bis 750 zu befüllen.
Mein Problem ist jetzt, dass wen ich das Programm ausführe, zählt er in der 1 Zeile nur bis 10 und nicht bis 75.
Woran liegt das?

Delphi-Quellcode:

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i, J, z : Integer;
begin
   z:=0;
  with StringGrid1 do
    for I := 1 to ColCount - 1 do
      for J:= 1 to RowCount - 1 do

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

          end;
        end;
end;

end.

Danke schon mal im voraus für die Antworten.
Grüße Basti