StringGrid mit Zahlenfolge füllen

[Kratos]

Moin Leute,

ich bin vermutlich blind und habe nicht den richtigen Thread in DP gefunden, denn ich denke, dass diese Thematik oft aufkommt und recht einfach zu lösen ist.

Nun denn.
Ich habe ein TSringGrid mit String1.ColCount Spalten.
Ich möchte, dass die erste Zeile mit den Zahlen 1,2,3,4,5,6,7 befüllt wird.
Bedeutet, dass die erste Zeile so aussehen soll:
1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 1 2 3 4 5 6 7 usw

Ich denke, dass ich 2 for-Schleifen brauche, die ineinander verschachtelt sind.
Die erste for-Schleife muss von 1 bis StringGrid1.ColCount zählen und die andere von 1-7.

Mein bisheriger Code überschreibt die jeweilige Zelle immer bis 7 bevor es auf die nächste Zelle springt.

Code:

for i := 1 to StringGrid1.ColCount do
  begin
    for j := i to 7 do
    begin
      StringGrid1.Cells[i,0] := IntToStr(j);
    end;
  end;

Kann mir bitte jemand weiterhelfen?

PS: es ist von mir beabsichtigt, dass ich erst ab der zweiten Zellen anfange zu befüllen.