[[duilioisola]]

Otra opción es crear una función en un formulario principal y desde el resto solo llamarla dentro el OnkeyDown

Código Delphi [-]
type
  TFMBase = class(TForm)
  [..]
  public
  procedure KeyDownGenerico(Sender: TObject; var Key: Word; Shift: TShiftState);;
  [..]
end;

procedure TFMBase.KeyDownGenerico(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  inherited;
  if (CTRL + A) then
     ...
end;

Código Delphi [-]
uses UFMBase;

type
  TFMOtroFormulario = class(TForm)
  [..]
  public
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  [..]
end;

procedure TFMOtroFormulario.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   TFMBase.KeyDownGenerico(Sender, Key, Shift);
end;