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

implementation

var Speed:Array[1..10,1..10] of TSpeedButton;


procedure Testprozedur;
begin
......
end;


procedure TForm1.FormCreate(Sender: TObject);
var x,y           : Integer;
begin
for x:=1 to 10 do
  for y:=1 to 10 do
    begin
      Speed[x,y]:=TSpeedButton.Create(Self);
      Speed[x,y].OnClick:=TestProzedur;
    end;
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:

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  p: TSmallPoint;
begin
p := TSmallPoint(TSpeedButton(Sender).Tag);
ShowMessage('Das war SpeedButton: '+IntToStr(p.x)+'/'+IntToStr(p.y));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  x,y : Integer;
  p: TSmallPoint;
begin
for x:=1 to 10 do
  for y:=1 to 10 do
    begin
      Speed[x,y]:=TSpeedButton.Create(Self);
      Speed[x,y].OnClick:=SpeedButton1Click;
      Speed[x,y].Top := y*25;
      Speed[x,y].Left := x*25;
      Speed[x,y].Parent := Self;
      Speed[x,y].Caption := IntToStr(x)+'/'+IntToStr(y);
      p.x := x;
      p.y := y;
      Speed[x,y].Tag := integer(p);
    end;
end;					

1:
2:
3:
4:

MyForm = Class(TForm)
  procedure MyButtonClick(Sender:TObjekt);
...
end;					

1:
2:

Speed[][].OnClick := MyButtonClick;
Speed[][].Tag:= 1;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure MyForm.MyButtonClick();
begin
  with  sender as TSpeedButton do
  case Tag of
    1: // tue was;
    2://
  end;
end;