[lmikle]

Вот так:

Код:

var
  i, j, v : integer;
begin
for i = 1 to n do // rows
  for j = 1 to n do // cols
    begin
	v := IfThen(i + j > n,n,i+j-1);
        StringGrid1.Calls[j,i] := IntToStr(v);
    end;
end;

пример вывода (сделан на java, но арифметика та же (n=5):

Код:

1	2	3	4	5
2	3	4	5	5	
3	4	5	5	5	
4	5	5	5	5	
5	5	5	5	5