Náš příklad předpokládá,

že máte na svém formuláři komponentu MainMenu a jedna z jejích položek má jméno Help1 (její titulek - Caption - může být pochopitelně libovolný). Celý kód přidejte do události OnCreate hlavního formuláře.
procedure TForm1.FormCreate(Sender: TObject);
var
Itm: TMenuItemInfo;
Buf: Array[0..79] of Char;
begin
ZeroMemory(@Itm, SizeOf(Itm));
with Itm do
begin
cbSize := 44;
fMask := MIIM_TYPE;
dwTypeData := Buf;
cch := SizeOf(Buf);
end;
if GetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, Itm) then
begin
Itm.fType := Itm.fType or MFT_RIGHTJUSTIFY;
if SetMenuItemInfo(MainMenu1.Handle, Help1.MenuIndex, True, Itm) then DrawMenuBar(MainMenu1.WindowHandle);
end;
end;