меню

       subDictionaryStatusEquipment := TMenuItem.Create (Form1.MainMenu);
       subDictionaryStatusEquipment.Caption := 'Статус оборудования ';
       subDictionaryStatusEquipment.OnClick := @MenuClick5;

       subDictionaryDash2:= TMenuItem.Create (Form1.MainMenu);
       subDictionaryDash2.Caption := '-------------------------';
       subDictionaryDash2.Enabled:= False;

       subDictionaryCompany := TMenuItem.Create (Form1.MainMenu);
       subDictionaryCompany.Caption := 'Компании ';
       subDictionaryCompany.OnClick := @MenuClick6;