>>921
A は無理だけど
　別のアプリ使ってて Shift+Ctrl+A とかなら ホットキーを使うといい

1) フォームのOnCreateで
const MyId= 1234;
procedure TForm1.FormCreate(Sender: TObject);
var Key,Modifiers: Word; Shift: TShiftState;
begin
ShortCutToKey(TextToShortCut('Shift+Ctrl+A'),Key,Shift);
Modifiers:=ord( ssAlt in Shift )* MOD_ALT ;
Modifiers:=ord( ssCtrl in Shift )* MOD_CONTROL +Modifiers ;
Modifiers:=ord( ssShift in Shift )* MOD_SHIFT +Modifiers ;

UnRegisterHotKey(Handle, MyId);
RegisterHotKey(Handle, MyId,Modifiers ,Key) ;
end;

2) OnDestroyで
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, MyId);
end;

3)　フォームにメッセージハンドラを追加
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;