[WaReZ_MEN]

Сообщение от <-TzX->

Пару строчек кода можно?

Можно

type
  TTestForm = class(TForm)
    procedure FormCreate(Sender:TObject);
  private
    procedure OwnButtonClick(Sender:TObject);
  end;

procedure TTestForm.FormCreate (Sender : TObject);
var i, j : integer;
begin
  for i := 0 to 4 do
    for j := 0 to 4 do
      with TButton.Create (Self) do
      begin
        Caption := Format ('Button %d %d', [i, j]);
        Top     := 100 + 30 * i;
        Left    := 100 + 90 * j;
        Width   := 80;
        Height  := 25;
        OnClick := OwnButtonClick;
        Parent  := Self;
      end;
end;

procedure TTestForm.OwnButtonClick (Sender : TObject);
begin
  ShowMessageFmt ('Нажата кнопка %s', [TButton (Sender).Caption]); 
end;