[CyberM@D]

Есть код:

procedure TForm1.FormCreate(Sender: TObject);
begin
ModifyMenu(MainMenu1.Handle, 3, mf_ByPosition or mf_Popup or mf_Help,
Help1.Handle, PChar(Help1.Caption));
end;

что делает: менюшка с правой стороны в главном меню.
проблема:окошко - MDIForm, при загрузке формы все происходит верно, но при выводе любого MDIChild-менюшка летит на свое место (крайнее правое, следом за последним пунктом меню) и никаким образом не возвращается куда надо.

Вопрос: ЧТО ДЕЛАТЬ?