procedure TMenuApp.InitMenuBar;
var
  R: TRect;
begin
  GetExtent(R);
  R.B.Y := R.A.Y + 1;
  MenuBar := New(PMenuBar, Init(R, NewMenu(
    NewSubMenu('~P~rogramme', hcNoContext, NewMenu(
      NewSubMenu('Leistungsrechnung', hcNoContext, NewMenu(
        NewItem('Datenerfassung','',kbNoKey,cmLrDe,hcNoContext,
        NewItem('Faktura','',kbNoKey,cmFakt,hcNoContext,
        NewItem('Bestandesrechnung','',kbNoKey,cmLrBe,hcNoContext,
        NewItem('Holzerlösanalyse','',kbNoKey,cmHea,hcNoContext,
        NewItem('Kundenstatistik','',kbNoKey,cmKusta,hcNoContext,
        NewItem('Schadhozmeldung','',kbNoKey,cmSchad,hcNoContext,
        NewItem('Einschlag nach Hiebsarten','',kbNoKey,cmHieb,hcNoContext,
        nil)))))))),
      NewSubMenu('Lohnrechnung', hcNoContext, NewMenu(
        NewItem('Prolohn','',kbNoKey,cmLohn,hcNoContext,
        NewItem('Installation neue Version','',kbNoKey,cmProlohnUpdate,hcNoContext,
        NewItem('Erzeugung Überweisungsdiskette','',kbNoKey,cmProPruef,hcNoContext,
        nil)))),
      NewSubMenu('Kostenrechnung', hcNoContext, NewMenu(
        NewItem('Datenerfassung','',kbNoKey,cmKrDe,hcNoContext,
        NewItem('Journaldruck','',kbNoKey,cmKrLi,hcNoContext,
        NewItem('Leistungsartenabrechnung','',kbNoKey,cmLatab,hcNoContext,
        nil)))),
      NewSubMenu('Haushaltsrechnung', hcNoContext, NewMenu(
        NewItem('Haushalt','',kbNoKey,cmHaushalt,hcNoContext,
        nil)),
      NewSubMenu('Datenspeicher Wald', hcNoContext, NewMenu(
            NewItem('Aktualisierung','',kbNoKey,cmWade,hcNoContext,
            NewItem('Auswertung','',kbNoKey,cmDsau,hcNoContext,
            NewItem('Altersklassentabelle','',kbNoKey,cmAltersklassentabelle,hcNoContext,
            NewItem('Druck Liste NVZ für DSW','',kbNoKey,cmListeNvz,hcNoContext,
            NewItem('Vollzug','',kbNoKey,cmVollzug,hcNoContext,
        nil)))))),
      NewSubMenu('Holzbuchführung',hcNoContext,NewMenu(
        NewItem('Hauptprogramm','',kbNoKey,cmHbf,hcNoContext,
        NewItem('Stammdatenverwaltung','',kbNoKey,cmHbfStamm,hcNoContext,
        NewItem('Löschen Bewegungsdaten','',kbNoKey,cmHbZap,hcNoContext,
        NewLine(
        NewItem('MDE - Übernahme','',kbNoKey,cmEgRec,hcNoContext,
        NewLine(
        NewItem('Neue Anwendung MDE laden','',kbNoKey,cmMde_New,hcNoContext,
        NewLine(
        NewSubMenu('Konfiguration Datenübertragung',hcNoContext,NewMenu(
          NewItem('MDE ---> PC','',kbNoKey,cmVpcReccf,hcNoContext,
          NewItem('PC  ---> MDE','',kbNoKey,cmProg20Snd,hcNoContext,
          nil))),
        nil)))))))))),
      NewSubMenu('Waldfunktionen f.NHB u.n.e.Fl.', hcNoContext, NewMenu(
        NewItem('Waldfunktionen f.NHB u.n.e.Fl.','',kbNoKey,cmWfNhb,hcNoContext,
        nil)),
      nil)))))))),
    NewSubMenu('~D~os Kommandos', hcNoContext, NewMenu(
      NewSubMenu('Kommandoprozessor laden', hcNoContext, NewMenu(
        NewItem('Command','',kbNoKey,cmDosShell,hcNoContext,
        nil)),
      NewSubMenu('Festplatte testen', hcNoContext, NewMenu(
        NewItem('Start Test','',kbNoKey,cmChkDsk,hcNoContext,
        nil)),
      NewSubMenu('Dos Editor laden', hcNoContext, NewMenu(
        NewItem('Edit','',kbNoKey,cmEdit,hcNoContext,
        nil)),
      NewSubmenu('Diskette formatieren', hcNoContext, NewMenu(
        NewSubMenu('unwiderrufbare Formatierung', hcNoContext, NewMenu(
          NewItem('720kB (DD) formatieren','',kbNoKey,cmFU720,hcNoContext,
          NewItem('1.44MB (HD) formatieren','',kbNoKey,cmFU144,hcNoContext,
          nil))),
        NewSubMenu('formatieren mit Quickformat', hcNoContext, NewMenu(
          NewItem('720kB (DD) formatieren','',kbNoKey,cmFQ720,hcNoContext,
          NewItem('1.44MB (HD) formatieren','',kbNoKey,cmFQ144,hcNoContext,
          nil))),
        nil))),
      nil))))),
    NewSubMenu('Di~e~nstprogramme', hcNoContext, NewMenu(
      NewItem('UPDATE Import','',kbNoKey,cmUpdate,hcNoContext,
      NewItem('Diskettenbetrachter','',kbNoKey,cmDv,hcNoContext,
      NewItem('Datum und Uhrzeit einstellen','',kbNoKey,cmDaTi,hcNoContext,
      NewLine(
      NewItem('Anlegen Sicherungskopien','',kbNoKey,cmDaS,hcNoContext,
      NewItem('Rücksichern von Sicherungskopie','',kbNoKey,cmDaR,hcNoContext,
      NewLine(
      NewItem('DOS Drucker Kontrolle','',kbNoKey,cmDPC,hcNoContext,
      NewLine(
      NewItem('Rechner','ALT+R',kbAltR,cmCalculator,hcNoContext,
      NewItem('Kalender','ALT+K',kbAltK,cmCalendar,hcNoContext,
      nil)))))))))))),
    NewSubMenu('~F~enster',hcNoContext,NewMenu(
      NewItem('~Z~oom / Rezoom','F5', kbF5,cmZoom,hcZoom,
      NewItem('~V~ergrößern / Bewegen','Ctrl+F5',kbCtrlF5,cmResize,hcResize,
      NewItem('Nä~c~hstes Fenster aktiv','F6',kbF6,cmNext,hcNext,
      NewItem('V~o~rherg. Fenster aktiv','Shift+F6',kbShiftF6,cmPrev,hcPrev,
      NewLine(
      NewItem('Fenster überlappend','',kbNoKey,cmCascade,hcCascade,
      NewItem('Fenster nebeneinander','',kbNoKey,cmTile,hcTile,
      NewItem('Fenster schließen','ALT+F3',kbAltF3,cmClose,hcClose,
      NewLine(
      NewItem('Programmende','ALT+X',kbAltX,cmQuit,hcNoContext,
      nil))))))))))),
    NewSubMenu('~I~nfo',hcNoContext,NewMenu(
      NewItem('Version...','ALT+V',kbAltV,cmVersion,hcNoContext,
      nil)),
  nil))))))));


end;