Акжан в сети - На уровень вверх(API, VCL) Каким образом можно изменить системное меню формы?

Hе знаю как насчет акселераторов,надо поискать, а вот добавить пункт меню(Item) - пожалуйста

type
   TMyForm=class(TForm)
     procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
   end;
 
 const
   ID_ABOUT = WM_USER+1;
   ID_CALENDAR=WM_USER+2;
   ID_EDIT = WM_USER+3;
   ID_ANALIS = WM_USER+4;
 
 implementation
 
 procedure TMyForm.wmSysCommand;
 begin
   case Message.wParam of
     ID_CALENDAR:DatBitBtnClick(Self) ;
     ID_EDIT :EditBitBtnClick(Self);
     ID_ANALIS:AnalisButtonClick(Self);
   end;
   inherited;
 end;
 
 procedure TMyForm.FormCreate(Sender: TObject);
 var
   SysMenu:THandle;
 begin
   SysMenu:=GetSystemMenu(Handle,False);
   InsertMenu(SysMenu,Word(-1),MF_SEPARATOR,ID_ABOUT,'');
   InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Calendar, 'Calendar');
   InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Analis, 'Analis');
   InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Edit, 'Edit');
 end;

Konstantin Suslov

(2:5020/300.16)