Access Violation на вызове события динамически созданного компонента

[JoLan]

procedure TForm1.SubTabClick(Sender: TObject);
begin
  Edit4.Text := (Sender as TPageControl).ActivePage.Caption;
end;
...
var
  AllPages:TPageControl;
  DynPages:Array of TPageControl;
  Pages:Array of TTabSheet;
...
  SetLength(DynPages,max1);
  SetLength(Pages,max1);
  AllPages := TPageControl.Create(Self);
  AllPages.Parent := Self;
...
  for i := 0 to max1 - 1 do begin
    Pages[i] := TTabSheet.Create(Self);
    Pages[i].PageControl := AllPages;
    DynPages[i] := TPageControl.Create(Self);
    DynPages[i].Parent := AllPages.Pages[i];
    @DynPages[i].OnChange := @TForm1.SubTabClick;
  end;

При дебаге процедуры SubTabClick видно, что Sender при выполнении процедуры пустой, но если вызвать ShowMessage(Sender.ClassName); то выведет TPageControl. Всю голову сломал, не понимаю в чем причина пустого Sender'а.

[JoLan]

Решил проблему следующим способом:

@DynPages[i].OnChange := @TForm1.SubTabClick;

Заменил на

DynPages[i].OnChange := Self.SubTabClick;