Переменные в динамических событиях

[Mutagena]

Подскажите, как нужно сделать.

procedure TMain.MyButtonClick(Sender:TObject);
begin
  AddDoc.Show;
end;

.....

        For j:=1 to N do
        begin
            kol := kol + 1;
            setlength(GroupTables, kol);
            setlength(Label1Tables, kol);
            setlength(Label2Tables, kol);
            setlength(ButtonTables, kol);

            //вывод гроупбоксов
            GroupTables[k]:= TGroupBox.create(Self);

            //устанока свойств для объекта гроупбокса
            With GroupTables[k] do
            begin
              left := leftgr;
              top := topgr;
              width := widthgr;
              caption := DateToStr(field);
            end;
            topgr := topgr + 70 + 40;
            GroupTables[k].Parent := self;

            //создание кнопок
            ButtonTables[k] := TButton.Create(Self);
            With ButtonTables[k] do
            begin
              left:= 405;
              top := 70;
              width := 30;
              height := 30;
              OnClick := MyButtonClick;
            end;
            ButtonTables[k].Parent := GroupTables[k];

            k := k + 1;
          end;
        end;

Как мне в событие кнопки передать порядковый номер, по которому происходит щелчок?

[Пепел Феникса]

в параметре Sender события будет обьект вызвавший событие.(кнопка там и тд)
также у компонентов можете использовать св-во Tag

[Stilet]

Действительно:

procedure TMain.MyButtonClick(Sender:TObject);
begin
 if sender<>nil then TButton(sender).Tag:=TButton(sender).Tag+1;
 AddDoc.Show;
end;

при кликах поле Tag кликнутой кнопки будет увеличиваться.

[Mutagena]

Всё равно не поняла.
А как мне тогда в модуль Unit3 передать номер вызванной кнопки?

[Stilet]

А как мне тогда в модуль Unit3 передать номер вызванной кнопки?

Зачем? Раскажи подробнее что ты там пишешь?