1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 10 do
    with TButton.Create(Self) do
      begin
        Parent :=Form1;
        Caption := 'Button' + IntToStr(i);
        Left := 30;
        Top := 30*i;
      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:

  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure tuWas (SEnder : TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.tuWas(sender : TObject);
begin
  ShowMessage('bla');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := tuWas;
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:

procedure TForm1.tuWas(sender : TObject);
begin
// An dieser stelle muss ich herausfinden welcher Button gedrükt wurde
// um darauf zu reagieren
ShowMessage('bla');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to 100 do begin
    with TButton.Create(self) do
      begin
        Name:=      'Button' + IntToStr(i);
        Parent:=    StringGrid1;
        Caption:=   'Button' + IntToStr(i);
        Height:=    22;
        Left:=      2;
        Top:=       25*i;
        OnClick:=   tuWas; // wird leider nicht mehr ausgeführt
       end;

end;                    end;