1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm3.Button2Click(Sender: TObject);
var v_t1,v_t2, i, i_2, i_3,  : integer;
begin
       randomize;

        v_t1 := random(900);                   (*erste Zahl in der angezeigte Tafel*)      

                 v_t2 := v_t1 + 10;
                     
          begin
         for i:= v_t1 to v_t2 do    (* soll für immer die nächste Zahl nach Rechts eine dazu zählen*)

                   for i_2 := 0 to 10 do   (*soll immer eine Zeile nach rechts gehen*)

                       for i_3 := 0 to 10 do   (*<--- Hier is das Problem: Er müsste eigetlich in der  
                                               Zählschleife immer "i_3 + 10 rechnen" un nich "i_3 + 1"*)


 StringGrid1.cells[i_2,i_3]:=(inttostr(v_t1 + i_2 + i_3));

                          end;					

1:
2:
3:
4:

procedure Bla;
begin
  TueEtwas;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TForm1.FormCreate(Sender: TObject);
var
  I, J, Zahl: Integer;
begin
Zahl:= 1;
for J := 0 to 9 do
 for I := 0 to 9 do
   begin
    StringGrid1.Cells[I,J] := IntToStr(Zahl);
    Inc(Zahl);
   end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var I, J: Integer;
begin
if not (StringGrid1.Cells[9,9] = IntToStr(1000)) then
 begin
  for J := 0 to 9 do
   for I := 0 to 9 do
    StringGrid1.Cells[I,J] := IntToStr(StrToInt(StringGrid1.Cells[I,J]) + 100);
 end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var I,J: Integer;
begin
if not (StringGrid1.Cells[0,0] = IntToStr(1)) then
 begin
  for J := 0 to 9 do
   for I := 0 to 9 do
    StringGrid1.Cells[I,J] := IntToStr(StrToInt(StringGrid1.Cells[I,J]) - 100);
 end;
end;