Hotkey wert aus Shortcut lesbar und zurück

[KodeZwerg]

Delphi-Quellcode:

    edHotKey.Text := '';
    HotKeyMod := Hi( SLI.HotKey );
    if (HotKeyMod and HOTKEYF_ALT) = HOTKEYF_ALT then
      edHotKey.Text := 'ALT+';
    if (HotKeyMod and HOTKEYF_CONTROL) = HOTKEYF_CONTROL then
      edHotKey.Text := edHotKey.Text + 'CTRL+';
    if (HotKeyMod and HOTKEYF_SHIFT) = HOTKEYF_SHIFT then
      edHotKey.Text := edHotKey.Text + 'SHIFT+';
    if (HotKeyMod and HOTKEYF_EXT) = HOTKEYF_EXT then
      edHotKey.Text := edHotKey.Text + 'Extended+';
    edHotKey.Text := edHotKey.Text + Char(Lo(SLI.HotKey));
    if (edHotKey.Text = '') or (edHotKey.Text = #0) then
      edHotKey.Text := '(None)';

Dem Beispiel folgend hab ich es übernommen, jetzt Fehlen nur noch die F-Tasten, da bekomme ich noch blödsinn aber ansonsten klappt es schon.