Moin devnull,
wenn die Möglichkeit besteht das Memo durch eine Listbox zu ersetzen, könntest Du die Zeilen mit den Hotkeys mittels AddObject hinzufügen, wobei als "Objekt" die ID des Keys gespeichert wird.
ListBox1.Lines.AddObject(ShortCutToText (Hotkey1.HotKey),TObject(sc_ct));
Mit IndexOf kannst Du dann die jeweilige Zeile finden, und aus der Eigenschaft Objects die ID auslesen, die zu dem Key gehört.
z.B. so:
Delphi-Quellcode:
var
iIndex : integer;
begin
iIndex := ListBox1.Lines.IndexOf('
STRG-A');
if iIndex = -1
then exit;
UnRegisterHotkey(
Handle,integer(ListBox1.Items.Objects[iIndex]));
end;
Mit Memo bzw. Richedit Lines funktioniert das leider nicht, da hier bei AddObject nichts zusätzlich gespeichert wird.