Hallo Stefan,
schau dir mal
diese Seite an.
Die IF-Anweisungen könntest du übrigens durch eine
CASE-Anweisung ersetzen. Eine mögliche Alternative ist die Verwendung der Komponente
TAction. Eine Action kann mit mehreren Auslösern (z.B. TButton, TMenuItem) verbunden werden und gestattet auch die Definition eines Shortcuts.
Gruß Hawkeye