오랫만에 와서 답글 하나 남기고 갑니다.
좋은 하루 되시구요.
저의 소스가 왜 이렇게 될지 궁금하시면
저도 답변을 잘 못드리겠네요..
기냥 산수 놀이 입니다.

혹시나 궁금해 하실까봐
스크린 샷도 올립니다....
<!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
i, j : integer;
begin
   for i := 1 to 5 do
   begin
     for j := 1 to 5 do
     begin
       if j = 1 then
         stringgrid1.cells[i, j] := inttostr(i)
       else
       begin
         stringgrid1.cells[i, j] := inttostr(((j*10)-9)-
                                    StrToInt(stringgrid1.cells[i, j-1]));
       end;
     end;
   end;
end;
<!--CodeE-->



>델파이를 배우는데 숫자가
> 1   2   3   4   5
>10  9   8   7   6
>11 12 13 14 15
>20 19 18 17 16
>21 22 23 24 25
>
>이렇게 나오게 하려고 하는데 스트링그리드하고 버튼을 이용해서
>procedure TForm1.Button1Click(Sender: TObject);
>var
> i, j : integer;
> cnt : integer;
>begin
> cnt := 1;
> for i := 0 to 4 do
>   begin
>   if j mod 2 = 1 then
>      for j:= 0 to 4 do
>   else
>      for j:= 4 downto 1 do
>   begin
>   stringgrid1.cells[j, i] := inttostr(cnt);
>   inc(cnt);
>   end;
>end;
>
>end;
>
>end.
>
>몇시간째하다가 안되서 염치불구하고 질문드립니다.