[DelphiBuilder]

THotKeyCreate

 FHotKey:=HotKeyCreate(WizardForm, True, clBtnFace, crDefault, False, True, clBlack, 20, 'Segoe UI', fpDefault, 20, [], 0, 'HotKey Create Hint', 32833, [hcNone,hcShift], [hkAlt], False, True, nil, False, 0, True, 0, True, 20, 20, 200, 200, nil, nil, nil, nil, nil, nil, nil);

HotKeyGetParent(FHotKey);
 HotKeyGetAutoSize(FHotKey);
 HotKeyGetColor(FHotKey);
 HotKeyGetCursor(FHotKey);
 HotKeyGetDoubleBuffered(FHotKey);
 HotKeyGetEnabled(FHotKey);
 HotKeyGetFontColor(FHotKey);
 HotKeyGetFontHeight(FHotKey);
 HotKeyGetFontName(FHotKey);
 HotKeyGetFontPitch(FHotKey);
 HotKeyGetFontSize(FHotKey);
 HotKeyGetFontStyle(FHotKey);
 HotKeyGetHelpContext(FHotKey);
 HotKeyGetHint(FHotKey);
 HotKeyGetHotKey(FHotKey);
 HotKeyGetInvalidKeys(FHotKey);
 HotKeyGetModifiers(FHotKey);
 HotKeyGetParentColor(FHotKey);
 HotKeyGetParentFont(FHotKey);
 HotKeyGetPopupMenu(FHotKey);
 HotKeyGetShowHint(FHotKey);
 HotKeyGetTabOrder(FHotKey);
 HotKeyGetTabStop(FHotKey);
 HotKeyGetTag(FHotKey);
 HotKeyGetVisible(FHotKey);
 HotKeyGetLeft(FHotKey);
 HotKeyGetTop(FHotKey);
 HotKeyGetHeight(FHotKey);
 HotKeyGetWidth(FHotKey);
 HotKeyGetBounds(FHotKey);

HotKeySetParent(FHotKey, WizardForm);
 HotKeySetAutoSize(FHotKey, True);
 HotKeySetColor(FHotKey, clWindow);
 HotKeySetCursor(FHotKey, crDefault);
 HotKeySetDoubleBuffered(FHotKey, False);
 HotKeySetEnabled(FHotKey, True);
 HotKeySetFontColor(FHotKey, clBlack);
 HotKeySetFontHeight(FHotKey, 20);
 HotKeySetFontName(FHotKey, 'Segoe UI');
 HotKeySetFontPitch(FHotKey, fpDefault);
 HotKeySetFontSize(FHotKey, 20);
 HotKeySetFontStyle(FHotKey, []);
 HotKeySetFont(FHotKey, clBlack, 20, 'Segoe UI', fpDefault, 20, []);
 HotKeySetHelpContext(FHotKey, 0);
 HotKeySetHint(FHotKey, 'HotKey Create Hint');
 HotKeySetHotKey(FHotKey, 32833);   //32833 = Alt+A
 HotKeySetInvalidKeys(FHotKey, [hcNone,hcShift]);
 HotKeySetModifiers(FHotKey, [hkAlt]);
 HotKeySetParentColor(FHotKey, False);
 HotKeySetParentFont(FHotKey, True);
 HotKeySetPopupMenu(FHotKey, nil);
 HotKeySetShowHint(FHotKey, False);
 HotKeySetTabOrder(FHotKey, 0);
 HotKeySetTabStop(FHotKey, True);
 HotKeySetTag(FHotKey, 0);
 HotKeySetVisible(FHotKey, True);
 HotKeySetLeft(FHotKey, 20);
 HotKeySetTop(FHotKey, 20);
 HotKeySetHeight(FHotKey, 200);
 HotKeySetWidth(FHotKey, 200);
 HotKeySetBounds(FHotKey, 20, 20, 200, 200);

 HotKeySetEvent(FHotKey, nil, nil, nil, nil, nil, nil, nil);