Разместить Item в MainMenu с права

[casio23]

Помогите решить задачу, у меня есть на форме MainMenu, нужно сделать чтобы Хелп был в правом углу.Спасибо
делаю вот так,вроде работает,но если навести мушку на файл или правка то хелп в правом углу пропадает, а если на него навести снова появляется

procedure TForm1.FormCreate(Sender: TObject) ;
 var
    mii: TMenuItemInfo;
    MainMenu: hMenu;
    Buffer: array[0..79] of Char;
 begin
    MainMenu := Self.Menu.Handle;
     mii.cbSize := SizeOf(mii) ;
     mii.fMask := MIIM_TYPE;
     mii.dwTypeData := Buffer;
     mii.cch := SizeOf(Buffer) ;
     GetMenuItemInfo(MainMenu, HelpMenuItem.Command, false, mii) ;
 
    mii.fType := mii.fType or MFT_RIGHTJUSTIFY;
    SetMenuItemInfo(MainMenu, HelpMenuItem.Command, false, mii) ;
 end;