Source position: menus.inc line 304
function NewItem(
Name: TMenuStr;
Param: TMenuStr;
KeyCode: Word;
Command: Word;
AHelpCtx: Word;
Next: PMenuItem
):PMenuItem;