TMenuPanel

procedure userGButton1OnClickScript(Sender: TObject; XCoord, YCoord: integer);
var
  c: TVisualComponent;
  MenuPanel: TMenuPanel;
begin
  c := GUI.FindComponentByName('MenuPanel1');
  if SYS.ObjectInheritsFrom(c, 'TMenuPanel') then begin
    if TMenuPanel(c).SelectedItem <> nil then
      GUI.ShowMessage(TGMenuItem(TMenuPanel(c).SelectedItem).Text);
  end;
end;