So müsste es gehen, jedoch ungetestet.
Tipp: Nimm am besten bessere Namen für die Variablen. z.B.:
Delphi-Quellcode:
var
Spalte, Zahl : Integer;
begin
Zahl := 1;
for Spalte := 1 to StringGrid1.ColCount - 1 do // das "- 1" fehlte bei dir, da du sonst über das Ziel hinaus gehst und somit einen Fehler produzierst.
begin
StringGrid1.Cells[Spalte, 0] := inttostr(Zahl);
if Zahl = 7 then //Wenn 7 erreicht ist, wieder von vorne Anfangen
begin
Zahl := 1;
end else //Sonst: Zahl um 1 erhöhen
begin
inc(Zahl);
end;
end;
end;