[[duilioisola]]

Podrías escribir el código en un formulario base y que luego el resto de formularios hereden de este.

Código Delphi [-]
type
  TFMBase = class(TForm)
  [..]
  procedure OnKeydown(...);
  [..]
end;

Código Delphi [-]
type
  TFMOtroFormulario = class(TFMBase)
  [..]
end;