Creacion de menus dinamicos desde una base de datos firebird

[IVAND]

Hola nuevamente

lo probe asi

Código Delphi [-]
procedure TFnew_menu.PopupMenuItemsClick(Sender: TObject);
var
  mi:TjfmenuItem;
Begin
  with sender as TJfMenuItem do
  begin
//  mi :=  TMenuItem(ListBox1.Items.Objects[i]);
  if Assigned((Sender as TjfmenuItem).OnClick) then begin
    (Sender as TjfmenuItem).OnClick(nil);  //Error de AV 
    //mi.OnClick(nil);  //Error de Av si uso esta forma tambie
    Exit;
  end
  End ;

Me sale un error de AV