Windows.Forms - Процедуры, цикл for и System.Windows.Forms.Button

...
private
ClickedButtonId, ClickedButtonX, ClickedButtonY:Integer;
ClickedButtonPos:String;
balcony_01, balcony_02:Array[1..50] of Button;
...
procedure OnLoad;
begin
// Собственно, описание элементов
end;
procedure OnButtonClick;
begin
...
end;
public constructor;
begin
OnLoad;
for var i := 1 to 50 do
begin
self.balcony_01[i].Click += procedure(Sender:Object; e:EventArgs)->begin ClickedButtonId := i; ClickedButtonX := i; ClickedButtonY := 0; ClickedButtonPos := 'balcony'; OnButtonClick(); end;
self.balcony_02[i].Click += procedure(Sender:Object; e:EventArgs)->begin ClickedButtonId := i; ClickedButtonX := i; ClickedButtonY := 1; ClickedButtonPos := 'balcony'; OnButtonClick(); end;
end;
end;
...

var pointer_to_OnButtonClick: procedure := OnButtonClick;

//ToDo Проверить, не исправили ли issue компилятора
// - #891