Creacion de menus dinamicos desde una base de datos firebird

[IVAND]

Debo indicarte algo , que cuando estoy en el sistema y doy a crear acceso directo este se ejecuta sin problemas , el problema radica cuando salgo del programa y quiero crear el menu desde la tabla ahi si me da el problema que te comento


Te indico que es lo que hago desde el principio

// con el click derecho del mouse creo la accion

Código Delphi [-]
procedure TFnew_menu.JfMenuItem94RightClick(Sender: TObject);
begin
  mi := TJfMenuItem(Sender);
  tema := mi.Caption;
  crear_accion_m(mi, mi.Privilege);
end;

//El proceso de creacion del menu y insercion en la tabla

Código Delphi [-]
procedure TFnew_menu.crear_accion_m(men: TJfMenuItem; Privilegio: TJfPrivilege);
begin
  Randomize;
    //Insertamos la opcion en el menu primero consultamos
  with crear_menu do
  begin
    close;
    ParamByName('key_caja').Value := DM_INV_FAC.Id_caja;
    ParamByName('menu').Value := Trim(men.Caption);
    Open;
  end;
  if Crear_menu.RecordCount = 0 then
  begin
    NewItem := TJfMenuItem.Create(JfPanelMenu1);
    JfPanelMenu1.Items.Add(NewItem);    // add it to the Popupmenu
    NewItem.Caption := men.Caption;
    newitem.Privilege := Privilegio;
    newitem.Tag := nmesas + 1;
    newitem.OnClick := men.OnClick;
     //Insertamos en la base de datos
    Crear_menu.Insert;
    crear_menu.FieldByName('detalle_menu').Value := men.Caption;
    crear_menu.FieldByName('key_caja').Value := DM_INV_FAC.Id_caja;
    crear_menu.FieldByName('privilegio').value := Privilegio.Id;
    crear_menu.FieldByName('id_menu_items').value := men.menuIndex;
    crear_menu.FieldByName('nombre_menu').value := men.Name;
    crear_menu.FieldByName('imagen').value := men.Image.Id;
    crear_menu.Post;
  end;
end;

Ahi se ejecuta perfecto , porque estoy dentro del sistema , pero cuando salgo la idea es cargar el menu que esta grabado en la base y es ahi donde me da el error

Te agradesco por tu tiempo , espero me puedas dar una mano