[ecfisa]

Hola José Luis.

En Windows 8.1 64 bits con Delphi 7 obtengo el mismo resultado que vos en los enlaces que mencionas.

Sin embargo, pude enviar sin problemas a la derecha al último Item del TMainMenu usando la funcion ModifyMenu de este modo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  with MainMenu1 do
    ModifyMenu(Handle,
               Items.Count-1,
               MF_BYPOSITION or MF_POPUP or MF_HELP,
               Items[Items.Count-1].Handle,
               PChar(Items[Items.Count-1].Caption));
end;

Saludos