1:

var buttons: array[1..10] of Tbutton;					

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

procedure TForm1.Button1Click(Sender: TObject);
begin
buttons[1]:=Tbutton.Create(Form1);
buttons[1].Parent:=form1;
buttons[1].Left:=10;
buttons[1].Top:=10;
buttons[1].Caption:='asd';
end;					

1:

buttons[1].onclick:=meineprozedurfuerbutton1click					

1:
2:
3:
4:

procedure Tform1.meineprozedurfuerbutton1click();
begin
...
end;					

1:
2:
3:

type
  TForm1 = class(TForm)
 procedure meineprozedurfuerbutton1click(Sender: Tobject);					

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:

uses  [...] StdCtrls; // Hier ist der Typ tButton Definiert
type
  TForm1 = class(TForm)
private
    Buttons : ARRAY[1..7,1..7] OF tButton; // Das Button Array
  public
    procedure CreateButtons;
  end;
[...]
procedure TForm1.CreateButtons; // Diese Funtion erstellt die Buttons
  VAR
    i, j : Byte;
begin
  // Zwei verschachtelte Schleifen eine läuft von 1-7 in die Bereite, die andere in die Höhe 
  FOR i := 1 TO 7 DO
    FOR j := 1 TO 7 DO BEGIN
      Buttons[i, j] := tButton.Create(Self); // Den Button i,j erzeugen
      Buttons[i, j].Parent := Self; // Ihn als Kind des Formulars registrieren
      // Den Button Positionieren und auf die richtige größe bringen
      Buttons[i, j].Top := i * 40;
      Buttons[i, j].Left := j * 40;
      Buttons[i, j].Height := 38;
      Buttons[i, j].Width := 38;
      // Und beschriften
      Buttons[i, j].Caption := IntToStr(i) + '\' + IntToStr(j);
    END; // FOR j
end; // Create Buttons
// Nachdem diese Procedre aufgerufen wurde kannst du im ganzenen Formular mit Buttons[X, Y] auf den entsprechenden Knopf zugreifen.					

1:

TButton(FindComponent('button'+IntToStr(i))).Caption:='irgendwas';					

1:
2:
3:
4:

function TForm1.mybutton(i : INTEGER) : TButton;
begin
  result:=TButton(FindComponent('button'+IntToStr(i)));
end;					

1:

type TNotifyEvent = procedure (Sender: TObject) of object;					

1:
2:
3:
4:

procedure TForm1.MyButtonClick(Sender: tObject);
begin
  [...]
end;					

1:

Buttons[1, 1].OnClick := MyButtonClick;					

1:

IF (Sender IS tButton) THEN					

1:

  tButton(Sender).Caption := 'Der war''s';					

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

procedure TForm1.MyButtonClick(Sender: tObject);
  VAR
    ActButton : tButton;
begin
  IF (Sender IS tButton) THEN BEGIN
    ActButton := tButton(Sender);
    IF (ActButton.Caption = 'X') THEN
      ShowMessage('Den solltest du doch nicht drücken.');
  END;
end;