Создание динамических события от динамических элементов

for i := 0 to High(MiddleEdit) do
    begin
MiddleDialog[i] := TOpenPictureDialog.Create(Self); //Создаем диалоги по циклу
 
      MiddleButton[i] := TButton.Create(Self); //Создаем по циклу кнопки
      MiddleButton[i].Parent := TabSheet2;
      MiddleButton[i].Height := 24;
      MiddleButton[i].Width := 18;
      MiddleButton[i].Top := 188 + (i * 28);
      MiddleButton[i].Left := 250;
      MiddleButton[i].Caption:='+';
      MiddleButton[i].Enabled:=false;
      MiddleButton[i].Show;
 
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Menus,
  Vcl.ComCtrls, IdBaseComponent, IdSASL, IdSASLUserPass, IdSASL_CRAMBase, Umd5,
  Vcl.ExtDlgs, jpeg, Vcl.ExtCtrls, Vcl.Samples.Spin;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    CheckBox1: TCheckBox;
    Image1: TImage;
    Memo2: TMemo;
    Label3: TLabel;
    CheckBox2: TCheckBox;
    Button3: TButton;
    Label4: TLabel;
    CheckBox3: TCheckBox;
    OpenPictureDialog1: TOpenPictureDialog;
    Button4: TButton;
    Button5: TButton;
    Image2: TImage;
    OpenPictureDialog2: TOpenPictureDialog;
    seCount: TSpinEdit;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
 
    procedure OnChangeEdit(Sender: TObject);
    procedure seCountChange(Sender: TObject);
    procedure TabSheet2Hide(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject); // Изменение текста идета
 
 
    Procedure OnClickButton(Sender : TObject );
  private
    { Private declarations }
  public
    { Public declarations }
 
 
 
  end;
var
  Form1: TForm1;
  n : Integer;
  MiddleCheckbox : Array of TCheckBox;
  MiddleEdit : Array of TEdit;
  MiddleDialog : Array of TOpenPictureDialog;
  MiddleButton : Array of TButton;
  MiddleImage : Array of TImage;
implementation
 
function sort(S:string):string; // Сортировка ответов
var
 L:TStringList;
 
begin
 L:=TStringList.Create;
 L.Sorted:=True;
 L.DelimitedText:= S;
 L.Text:=StringReplace(L.Text,chr($d)+ chr($a),'',[rfReplaceAll]);
 Result:= Trim(L.Text);
 L.Free;
end;
 
{$R *.dfm}
 
procedure TForm1.OnChangeEdit(Sender: TObject);
begin
Self.Caption := TEdit(Sender).Text;
end;
 
procedure TForm1.seCountChange(Sender: TObject);  // Изменение спинедита
begin
Button4.Enabled:=true;
 
end;
 
 
 
 
 
procedure TForm1.TabSheet2Hide(Sender: TObject); //Возвращаем высоту по сокрытию таба 2
begin
 Form1.Height := 463;
PageControl1.Height := 409;
end;
 
procedure TForm1.TabSheet2Show(Sender: TObject); //Сохраняем высоту по показу таба 2
begin
   if seCount.Value > 7 then
begin
Form1.Height := Form1.Height + (seCount.Value - 7)*30;
PageControl1.Height := PageControl1.Height + (seCount.Value - 7)*30;
end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  List1 : TStringList;
  List2 : TStringList;
  Question : String;
  Answer : String;
 
begin
  List1 := TStringList.Create;
  List2 := TStringList.Create;
  Answer := AnsiLowerCase(Edit1.Text);
  Answer := md5(trim(Answer));
 
  if CheckBox1.Checked then //если вопрос картинка для ввода
  begin
  List1.Add('s' + chr($a0) + 'iq' + chr($a0) + ExtractFileName(OpenPictureDialog1.FileName) + chr($a0) + Answer);
 
  end
   else
   begin
       List1.Add('s' + chr($a0) + 'in' + chr($a0) + Memo1.Text + chr($a0) + Answer);
   end;
 
  ShowMessage (List1.Text);
 
List2.loadFromFile('out.txt');
if List2.Count > 0 then
List2.Delete(List2.Count-1);
List2.Add(List1.Text);
List2.saveToFile('out.txt');
Image1.Picture.SaveTofile('img/' + ExtractFileName(OpenPictureDialog1.FileName));
 
// List1.SaveToFile();
 // OpenDialog1.Execute();
 
end;
 
 
 
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
 
  if OpenPictureDialog1.Execute
then
begin
Image1.Visible:=true;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ShowMessage(ExtractFileName(OpenPictureDialog1.FileName));
 
end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);  //Загрузка картинки для выбора верного
begin
 
  if OpenPictureDialog2.Execute
then
begin
Image2.Visible:=true;
Image2.Picture.LoadFromFile(OpenPictureDialog2.FileName);
end;
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);  //Кнопка +
var
i: Integer;
begin
Form1.Height := 463;
PageControl1.Height := 409;
  if seCount.Value > 7 then
begin
Form1.Height := Form1.Height + (seCount.Value - 7)*30;
PageControl1.Height := PageControl1.Height + (seCount.Value - 7)*30;
end;
 
 
 
 
  for i := 0 to High(MiddleEdit) do
  begin
    MiddleEdit[i].Free;
    MiddleCheckbox[i].Free;
    MiddleDialog[i].Free;
    MiddleButton[i].Free;
    MiddleImage[i].Free;
  // устанавливаем новую длину массива:
  // обрабатываем каждый элемент массива
   end;
  SetLength(MiddleEdit, seCount.Value);
  SetLength(MiddleCheckbox, seCount.Value);
  SetLength(MiddleDialog, seCount.Value);
  SetLength(MiddleButton, seCount.Value);
  SetLength(MiddleImage, seCount.Value);
 
  for i := 0 to High(MiddleEdit) do
    begin
      MiddleEdit[i] := TEdit.Create(Self); //Создаем по циклу едиты
      MiddleEdit[i].Parent := TabSheet2;
      MiddleEdit[i].Height := 24;
      MiddleEdit[i].Width := 200;
      MiddleEdit[i].Top := 187 + (i * 28);
      MiddleEdit[i].Left := 38;
      MiddleEdit[i].OnChange := OnChangeEdit; // обработчик события "текст изменён"
      MiddleEdit[i].Show;
 
      MiddleCheckbox[i] := TCheckBox.Create(Self); //Создаем по циклу чекбоксы
      MiddleCheckbox[i].Parent := TabSheet2;
      MiddleCheckbox[i].Height := 24;
      MiddleCheckbox[i].Width := 18;
      MiddleCheckbox[i].Top := 188 + (i * 28);
      MiddleCheckbox[i].Left := 18;
      MiddleCheckbox[i].Show;
 
      MiddleDialog[i] := TOpenPictureDialog.Create(Self); //Создаем диалоги по циклу
 
      MiddleButton[i] := TButton.Create(Self); //Создаем по циклу кнопки
      MiddleButton[i].Parent := TabSheet2;
      MiddleButton[i].Name:='Bt'+IntToStr(i);
      MiddleButton[i].Height := 24;
      MiddleButton[i].Width := 18;
      MiddleButton[i].Top := 188 + (i * 28);
      MiddleButton[i].Left := 250;
      MiddleButton[i].Caption:='Bt'+IntToStr(i);
      MiddleButton[i].Enabled:=false;
      MiddleButton[i].OnClick:=OnClickButton;
      MiddleButton[i].Show;
 
      MiddleImage[i] := TImage.Create(Self); //Создаем по циклу TI
      MiddleImage[i].Parent := TabSheet2;
      MiddleImage[i].Height := 140;
      MiddleImage[i].Width := 250;
      MiddleImage[i].Top := 190;
      MiddleImage[i].Left := 280;
      MiddleImage[i].Proportional:=true;
   end;
     Button4.Enabled:=false;
end;
 
procedure TForm1.OnClickButton(Sender : TObject); // Получаем имя картинок выбор нескольких
var i : integer;
MCapt : String;
begin
 
MCapt :=  (Sender as TButton).Caption;
MCapt :=  Copy(MCapt, 3,  Length(MCapt));
 
    for i := StrToInt(MCapt) to StrToInt(MCapt) do
       if MiddleDialog[i].Execute
then
begin
 
MiddleImage[i].Picture.LoadFromFile(MiddleDialog[i].FileName);
MiddleEdit[i].Text:= ExtractFileName(MiddleDialog[i].FileName);
end;
end; //
 
 
 
procedure TForm1.Button5Click(Sender: TObject); //Выбор верного сохранение в базу
// in - нет картинок
// ia - картинка ответ
// iq - картинка вопрос
// iaq - картинка ответ и вопрос
var
  List3 : TStringList;
  List4 : TStringList;
  Question2 : String;
  MAnswer : String;
  MHashAnswer : String;
  i: Integer;
begin
List3 := TStringList.Create;
List4 := TStringList.Create;
 
  if CheckBox3.Checked then // если ответы картинка
  begin
  MAnswer := '';    //Получаем текст вс едитов по циклу
 
  for i := 0 to High(MiddleEdit) do
  begin
    MAnswer := MAnswer + ExtractFileName(MiddleDialog[i].FileName) + '##';
    if MiddleCheckbox[i].Checked then
    MHashAnswer := MHashAnswer + ExtractFileName(MiddleDialog[i].FileName) + chr($a);
end;
 
 MHashAnswer := sort(MHashAnswer);
 MHashAnswer := md5(trim(MHashAnswer));
MAnswer := Copy(MAnswer, 0,  Length(MAnswer)-2);
 
   if CheckBox2.Checked then // вопрос картинка
List3.Add('m' + chr($a0) + 'iaq' + chr($a0) + ExtractFileName(OpenPictureDialog2.FileName) + chr($a0) + MAnswer + chr($a0) + MHashAnswer)
 
  else
  List3.Add('m' + chr($a0) + 'ia' + chr($a0) + Memo2.Text + chr($a0) + MAnswer + chr($a0) + MHashAnswer);
 
 
 
 
  end //конец если картинка
 
 
   else //если ответы текст
   begin
        MAnswer := '';    //Получаем текст вс едитов по циклу
  for i := 0 to High(MiddleEdit) do
  begin
    MAnswer := MAnswer + MiddleEdit[i].Text + '##';
    if MiddleCheckbox[i].Checked then
    MHashAnswer := MHashAnswer + MiddleEdit[i].Text + chr($a);
end;
 MHashAnswer :=  AnsiLowerCase(MHashAnswer);
 MHashAnswer := sort(MHashAnswer);
 MHashAnswer := md5(trim(MHashAnswer));
MAnswer := Copy(MAnswer, 0,  Length(MAnswer)-2);
 
 
  if CheckBox2.Checked then // вопрос картинка
   List3.Add('m' + chr($a0) + 'iq' + chr($a0) + ExtractFileName(OpenPictureDialog2.FileName) + chr($a0) + MAnswer + chr($a0) + MHashAnswer )
   else
   List3.Add('m' + chr($a0) + 'in' + chr($a0) +Memo2.Text + chr($a0) + MAnswer + chr($a0) + MHashAnswer );
 
   end;   // конец условия что чекбокс 3 отмечен
 
    ShowMessage (List3.Text);
 
List4.loadFromFile('out.txt');
if List4.Count > 0 then
List4.Delete(List4.Count-1);
List4.Add(List3.Text);
List4.saveToFile('out.txt');
// сохраняем картинку вопроса
Image2.Picture.SaveTofile('img/' + ExtractFileName(OpenPictureDialog2.FileName));
 
//храним по циклу картинки ответов
  for i := 0 to High(MiddleEdit) do
  begin
MiddleImage[i].Picture.SaveTofile('img/' + ExtractFileName(MiddleDialog[i].FileName));
end;
 
 
end;
 
 
 
 
 
 
 
 
 
 
 
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
begin
Button2.Visible:=true;
Label1.Visible:=false;
Memo1.Visible:=false;
end
else
begin
Button2.Visible:=false;
   Label1.Visible:=true;
   Memo1.Visible:=true;
end;
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject); //Чекбокс если вопрос картинка для выбора верного
begin
 
if CheckBox2.Checked then
begin
Button3.Visible:=true;
Label3.Visible:=false;
Memo2.Visible:=false;
end
else
begin
Button3.Visible:=false;
Label3.Visible:=true;
Memo2.Visible:=true;
Image2.Visible:=false;
end;
 
end;
 
 
 
 
 
 
procedure TForm1.CheckBox3Click(Sender: TObject);
var i : Integer;
begin
 
if CheckBox3.Checked then begin
for i := 0 to High(MiddleEdit) do
  begin
   MiddleEdit[i].Enabled:=false;
   MiddleButton[i].Enabled:=true;
  end;
end else// если не ативен
    begin
    for i := 0 to High(MiddleEdit) do
  begin
     MiddleEdit[i].Enabled:=true;
   MiddleButton[i].Enabled:=false;
  end;
    end;
 
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(MiddleEdit, 0);
   Button2.Visible:=false;// Кнопка загрузить для ввода с клавиатуры
   Button3.Visible:=false;// Кнопка загрузить для выбора верного
   Image1.Visible:=false;  //Компонент имейдж для ввода с клавы
   Image2.Visible:=false;  //Компонент имейдж для выбора верного
end;
 
end.

MiddleButton[i].Tag := i;
MiddleButton[i].OnClick := ClickBtn;

procedure ClickBtn(Sender: TObject);
var
  index: integer;
begin
  index := TButton(Sender).Tag;
  ...
end;