Hola,
No pierdas de vista la opción que te señala el compañero
Nbull, pero, por si te sirve de algo, algo así tendrías que hacer para comprobar en el evento "OnKeyDown" que se pulsó la combinación de teclas "CTRL + B":
Código Delphi
[-]
procedure TForm1.FormKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
begin
if (Shift = [ssCtrl]) and (Key = Ord('B')) then
ShowMessage('Pulsaste CTRL + B');
end;