Stringgrid Sırasıyla Rakam Yazdırma

Stringgrid ekleyerek sırasıyla rakamları yazdıran kod.

procedure TForm1.FormCreate(Sender: TObject);

var

a,b,c:word;

begin

c:=0;

for a:=1 to 6 do

for b:=1 to 6 do

begin

c:=c+1;

S1.Cells[b,a]:=inttostr(c);

end;

end;

end.