Ich übersetze das so.
Da wo es dir passt deklarieren
TranslateShortCutText: TTranslateShortCutText;
Erzeugen
TranslateShortCutText := TTranslateShortCutText.Create(form);
Übersetzen
Delphi-Quellcode:
TranslateShortCutText.Key_Backspace := 'MyBackspace';
TranslateShortCutText.Key_Tabulator := 'Tab';
TranslateShortCutText.Key_Return := 'Enter';
TranslateShortCutText.Key_Escape := 'Esc';
TranslateShortCutText.Key_Space := 'Leertaste';
TranslateShortCutText.Key_Prior := 'BildAuf';
TranslateShortCutText.Key_Next := 'BildAb';
TranslateShortCutText.Key_End := 'Ende';
TranslateShortCutText.Key_Home := 'Home';
TranslateShortCutText.Key_Left := 'Links';
TranslateShortCutText.Key_Up := 'Oben';
TranslateShortCutText.Key_Right := 'Rechts';
TranslateShortCutText.Key_Down := 'Unten';
TranslateShortCutText.Key_Insert := 'Einfügen';
TranslateShortCutText.Key_Delete := 'Entfernen';
TranslateShortCutText.Key_Alt := 'Alt+';
TranslateShortCutText.Key_Ctrl := 'STRG+';
TranslateShortCutText.Key_Shift := 'Shift+';
TranslateShortCutText.RefreshMenuItems;
Freigeben
TranslateShortCutText.Free;