Afficher les éléments d'un menu à droite

procedure TForm1.FormCreate(Sender: TObject);
const
MenuIndex = 3;
var
MII : TMenuItemInfo;
MainMenu : hMenu;
Buffer : array[0..50] of Char;
begin
MainMenu := GetMenu(Handle);
With MII do
begin
cbSize := SizeOf(MII);
fMask := MIIM_TYPE;

dwTypeData := Buffer;
cch := SizeOf(Buffer);

GetMenuItemInfo(MainMenu, MenuIndex, true, MII);
fType := fType or MFT_RIGHTJUSTIFY;
SetMenuItemInfo(MainMenu, MenuIndex, true, MII);
end;
end;