обработчик динамически созданных кнопок

[andir]

На форме расположены динамически созданные кнопки. Помогите пожалуйста создать обработчик, чтобы при щелчке на какую-либо кнопку свойство caption изменялось на какой-либо символ.
Исходник:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var btn:array [1..100,1..100] of  TButton;
i,j,top,left,gor,vertical:Integer;
l,k,ht,lt:integer;
begin
  l:=0;
  k:=0;
      n:=1;
gor:=StrToInt(Edit1.Text);
vertical:=StrToInt(Edit2.Text);
for i:=1 to vertical do
        for j:=1 to gor do begin
  btn[i,j]:=TButton.Create(Form1);
  btn[i,j].Parent:=Form1;
  btn[i,j].Top:=32+l;
  btn[i,j].Left:=30+k;
  btn[i,j].Height:=45;
  btn[i,j].Width:=45;
  btn[i,j].Name:='btn'+inttostr(n);
  btn[i,j].Caption:='';

      k:=k+60;
            
          if j=gor then begin

          l:=l+50;
          k:=0;

          end;
      end;
      end;

end.
end.

[bulldog5293]

1)c мосивами не так часто работаю, но помойму 2х мерный масив тут излшне
2)создаёшь обработчик для кнопки, присваеваешь ей таг и всё

[Аватар]

До 10000 кнопок? Это прикол такой? StringGrid не подходит?

[andir]

Сообщение от Аватар

До 10000 кнопок? Это прикол такой? StringGrid не подходит?

Ситуация такая: мне нужно создать игру крестики нолики, сперва я ввожу размеры поля, после этого на форме динамически создаются кнопки в ввиде таблицы. Я хочу чтобы при нажатии на кнопку появлялся крестик или нолик в заваисимости от количества поставленных крестиков и ноликов.

[Человек_Борща]

DrawGrid вместо тысячи кнопок...

[andir]

Сообщение от Человек_Борща

DrawGrid вместо тысячи кнопок...

Большое спасибо. Буду пробывать