unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lblIndex: TLabel;
    lblIndexWert: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure btnMonatClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

const
  monat: array[0..11] of String = ('Januar', 'Februar', 'März', 'April',
                                   'Mai', 'Juni', 'Juli', 'August',
                                   'September', 'Oktober', 'November', 'Dezember');

var
  Form1: TForm1;
  btnMonat: array[0..11] of TButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i: byte;
begin
  for i:=0 to 11 do
  begin
    btnMonat[i]:=TButton.Create(self);
    with btnMonat[i] do
    begin
      Parent:=Form1;
      Caption:=monat[i];
      width:=65;
      Left:=66*i+10;
      Top:=20;
      Tag:=i;
      Show;
      OnClick:=btnMonatClick;   //Aufrufen der Ereignisprocedure
    end;
  end;
end;

procedure TForm1.btnMonatClick(Sender: TObject);
var index: byte;
begin
  index:=TButton(Sender).Tag;
  lblIndexWert.Caption:=IntToStr(index);
end;

end.