Connaitre la taille des éléments d'un Mainmenu

//ajouter un TMainMenu et un TMemo à la fiche

procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
for i := 0 to mainmenu1.Items.Count - 1 do
begin
Win32Check(GetMenuItemrect(handle, mainmenu1.handle, i, r));
memo1.lines.add(format('Item %d: (%d, %d), (%d, %d)', [i, r.left, r.top, r.right,
r.bottom]));
end;
end;