:)

for (int g=0; g<DSprav->ArrGrids[i]->Columns->Count; g++)
  {
  m_idx=DSprav->ArrGridsOptions[i].GridMenu.Length;
  DSprav->ArrGridsOptions[i].GridMenu.Length++;

  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem = new TMenuItem(DSprav->ArrGridsOptions[i].GridMenu[1].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[1].MItem->Add(DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Tag=m_idx;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].mode=2;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->OnClick=DSprav->PopupMenuItemClick;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Caption=DSprav->ArrGrids[i]->Columns->Items[g]->Title->Caption;

  m_idx=DSprav->ArrGridsOptions[i].GridMenu.Length;
  DSprav->ArrGridsOptions[i].GridMenu.Length++;

  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem = new TMenuItem(DSprav->ArrGridsOptions[i].GridMenu[2].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[2].MItem->Add(DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Tag=m_idx;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].mode=3;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->OnClick=DSprav->PopupMenuItemClick;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Caption=DSprav->ArrGrids[i]->Columns->Items[g]->Title->Caption;
  }

//ioieou iai? a?oiiu ooieoee - eiiiee
if (DSprav->ArrDBLabelsButtons[i].ArrButtonsOptions.Length>0
  && DSprav->ArrDBLabelsButtons[i].ArrButtonsOptions[0].BFunct!=7)
  {
  m_idx=DSprav->ArrGridsOptions[i].GridMenu.Length;
  DSprav->ArrGridsOptions[i].GridMenu.Length++;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem = new TMenuItem(DSprav->ArrGridsOptions[i].pMenu);
  DSprav->ArrGridsOptions[i].pMenu->Items->Add(DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Tag=m_idx;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->OnClick=DSprav->PopupMenuItemClick;
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Caption="-";
  DSprav->ArrGridsOptions[i].GridMenu[m_idx].mode=0;

  int f_idx=DSprav->ArrGridsOptions[i].GridMenu.Length;
  DSprav->ArrGridsOptions[i].GridMenu.Length++;
  DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem = new TMenuItem(DSprav->ArrGridsOptions[i].pMenu);
  DSprav->ArrGridsOptions[i].pMenu->Items->Add(DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem);
  DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem->Tag=f_idx;
  DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem->OnClick=DSprav->PopupMenuItemClick;
  DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem->Caption="Ooieoee";
  DSprav->ArrGridsOptions[i].GridMenu[f_idx].mode=0;

  for (int b=0; b<DSprav->ArrDBLabelsButtons[i].ArrButtonsOptions.Length; b++)
    {
    if (DSprav->ArrDBLabelsButtons[i].ArrButtonsOptions[b].BFunct==7) {continue;}
    m_idx=DSprav->ArrGridsOptions[i].GridMenu.Length;
    DSprav->ArrGridsOptions[i].GridMenu.Length++;
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem = new TMenuItem(DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem);
    DSprav->ArrGridsOptions[i].GridMenu[f_idx].MItem->Add(DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem);
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Tag=m_idx;
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->OnClick=DSprav->PopupMenuItemClick;
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].MItem->Caption=DSprav->ArrDBLabelsButtons[i].ArrButtons[b]->Caption;
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].mode=7;
    DSprav->ArrGridsOptions[i].GridMenu[m_idx].Btn=DSprav->ArrDBLabelsButtons[i].ArrButtons[b];
    }
  }

QSat_Grids->Next();//aaeuoa a?eau niio?ei anee anou
}